A082984 Numbers k for which the 3x+1 problem takes at least k halving and tripling steps to reach 1.
1, 2, 3, 5, 6, 7, 9, 11, 14, 15, 18, 19, 27, 31, 41, 47, 54, 55, 62, 63, 71, 73, 82, 83, 91, 94, 95, 97, 108, 109, 110
Offset: 1
Examples
3 is in the list because it takes A006577(3) = 7 steps to reach 1 (3 -> 10 -> 5 -> 16 -> 8 -> 4 -> 2 -> 1).
Links
Programs
-
Mathematica
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; Select[Range[1000], Length[Collatz[#]] >= # &] (* T. D. Noe, Feb 21 2014 *)
Comments