A186701 Partial sums of Collatz sequence (A008908).

1, 3, 11, 14, 20, 29, 46, 50, 70, 77, 92, 102, 112, 130, 148, 153, 166, 187, 208, 216, 224, 240, 256, 267, 291, 302, 414, 433, 452, 471, 578, 584, 611, 625, 639, 661, 683, 705, 740, 749, 859, 868, 898, 915, 932, 949, 1054, 1066, 1091, 1116, 1141, 1153

Offset: 1

Author

Harvey P. Dale, Feb 25 2011

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A008908.

Programs

Mathematica

Accumulate[Table[Length[NestWhileList[If[EvenQ[#],#/2,3#+1]&,n,#!=1&]],{n,100}]]