login
A186701
Partial sums of Collatz sequence (A008908).
1
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,2
MATHEMATICA
Accumulate[Table[Length[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #!=1&]], {n, 100}]]
CROSSREFS
Cf. A008908.
Sequence in context: A115214 A373955 A143029 * A022123 A303035 A273869
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Feb 25 2011
STATUS
approved