A074077 - OEIS

%I #12 Jan 09 2025 00:21:34

%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 a(n) = 3n - Sum_{k=1..n} A068119(n).

%F a(n) = a(n-1) + 3 - A068119(n) with a(0)=0. - _Sean A. Irvine_, Jan 08 2025

%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

%E Name clarified by _Sean A. Irvine_, Jan 08 2025