A058633 Partial sums of A006577.

0, 1, 8, 10, 15, 23, 39, 42, 61, 67, 81, 90, 99, 116, 133, 137, 149, 169, 189, 196, 203, 218, 233, 243, 266, 276, 387, 405, 423, 441, 547, 552, 578, 591, 604, 625, 646, 667, 701, 709, 818, 826, 855, 871, 887, 903, 1007, 1018, 1042, 1066, 1090, 1101, 1112, 1224

Offset: 1

Author

Felix Goldberg (felixg(AT)tx.technion.ac.il), Dec 26 2000

Keywords

• nonn

Examples

			a(3) = A006577(1) + A006577(2) + A006577(3) = 0 + 1 + 7 = 8.
		

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A006577, A058633.

Programs

Mathematica

A006577[n_] := Length[NestWhileList[If[OddQ[#], 3*# + 1, #/2] &, n, # > 1 &]] - 1;
Accumulate[Array[A006577, 100]] (* Paolo Xausa, Oct 01 2024 *)

PARI

A006577(n)=if(n<0, 0, s=n; c=0; while(s>1, s=if(s%2, 3*s+1, s/2); c++); c)
s=0; vector(100,n, s+=A006577(n) ) \\ Charles R Greathouse IV, May 11 2015

Formula

a(n) = Sum_{i=0..n} A006577(i).