A074077 a(n) = 3n - Sum_{k=1..n} A068119(n).

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

Author

Benoit Cloitre, Aug 30 2002

Keywords

• sign

Programs

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 *)

Formula

a(n) = a(n-1) + 3 - A068119(n) with a(0)=0. - Sean A. Irvine, Jan 08 2025

Extensions

Name clarified by Sean A. Irvine, Jan 08 2025