OFFSET
0,4
COMMENTS
Note that a(n) <= 2^n, with equality only for n = 0.
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; nn = 15; t = Table[0, {nn}]; Do[c = Collatz[n]; e = Select[c, EvenQ]; diff = 2*Length[e] - Length[c]; If[diff < nn - 1, t[[diff + 2]] = n], {n, 1, 2^(nn - 1), 2}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 04 2013
EXTENSIONS
a(31) added - T. D. Noe, Mar 05 2013
STATUS
approved