proposed
approved
proposed
approved
editing
proposed
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 *)
approved
editing
_Benoit Cloitre (benoit7848c(AT)orange.fr), _, Aug 30 2002
sign,new
sign
Benoit Cloitre (abmtbenoit7848c(AT)wanadooorange.fr), Aug 30 2002
sign,new
sign
Benoit Cloitre (abcloitreabmt(AT)modulonetwanadoo.fr), Aug 30 2002
sign,new
sign
Benoit Cloitre (abcloitre(AT)wanadoomodulonet.fr), Aug 30 2002
3n - S(n) (see A068119).
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, 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, -4, -6, -6, -6, -4, -4, -3, -2, 0, -1, -2, -5, -3, -2, -1, -2, 0, -1, -1, -4, -2
1,3
sign
Benoit Cloitre (abcloitre(AT)wanadoo.fr), Aug 30 2002
approved