26 May
2014
26 May
'14
11:16 a.m.
Corrigendum: Reverse Newman: 2*ceiling(1/x) -1/x - 1 , E.g. In[272]:= NestWhileList[2*Ceiling[1/#] - 1/# - 1 &, 3/5, # > 0 &] Out[272]= {3/5, 4/3, 1/4, 3, 2/3, 3/2, 1/3, 2, 1/2, 1, 0} Omitendum: fusc: A002487 <http://oeis.org/A002487> Apologies. --rwg