A074077 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

Offset

1,3

Links

Table of n, a(n) for n=1..83.

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

Sequence in context: A123560 A060407 A083702 * A078381 A118975 A215644

Adjacent sequences: A074074 A074075 A074076 * A074078 A074079 A074080

Keyword

sign

Author

Benoit Cloitre, Aug 30 2002

Status

approved