OFFSET
1,3
MATHEMATICA
ce[n_] := Length[NestWhileList[#*Ceiling[#] &, n + 1/4, ! IntegerQ[#] &]] - 1; nn = Range[83]; t = Accumulate[ce /@ nn]; Table[3 n - t[[n]], {n, nn}] (* Jayanta Basu, Jul 30 2013 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Benoit Cloitre, Aug 30 2002
STATUS
approved