OFFSET
0,2
EXAMPLE
For n = 3, the twelve k are 1, 2, 3, 4, 5, 6, 8, 10, 12, 16, 20, and 24.
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; Table[Select[Range[3^n], Max[Collatz[#]] <= 3^n &], {n, 8}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Apr 24 2013
EXTENSIONS
a(20)-a(21) from Donovan Johnson, Jun 05 2013
STATUS
approved