login
A058633
Partial sums of A006577.
2
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,3
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = Sum_{i=0..n} A006577(i).
EXAMPLE
a(3) = A006577(1) + A006577(2) + A006577(3) = 0 + 1 + 7 = 8.
MATHEMATICA
A006577[n_] := Length[NestWhileList[If[OddQ[#], 3*# + 1, #/2] &, n, # > 1 &]] - 1;
Accumulate[Array[A006577, 100]] (* Paolo Xausa, Oct 01 2024 *)
PROG
(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
CROSSREFS
Sequence in context: A287557 A242732 A270796 * A165143 A355568 A289687
KEYWORD
nonn
AUTHOR
Felix Goldberg (felixg(AT)tx.technion.ac.il), Dec 26 2000
STATUS
approved