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,3

Links

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

Formula

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

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

Extensions

Name clarified by Sean A. Irvine, Jan 08 2025

Status

approved