|
%I #8 Jul 30 2013 16:04:32
%S 0,0,2,2,3,4,6,2,1,0,2,3,4,3,5,2,2,0,2,0,1,2,4,3,0,0,2,3,4,4,6,2,2,1,
%T 3,3,4,5,7,3,2,-2,0,1,2,0,2,2,2,-5,-3,-4,-3,-2,0,0,-2,-10,-8,-7,-6,-6,
%U -4,-6,-6,-6,-4,-4,-3,-2,0,-1,-2,-5,-3,-2,-1,-2,0,-1,-1,-4,-2
%N 3n - S(n) (see A068119).
%t 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 *)
%K sign
%O 1,3
%A _Benoit Cloitre_, Aug 30 2002
|
