OFFSET
1,1
COMMENTS
Many of the numbers have trajectories containing the numbers 40, 20, 10, 5. However, the trajectory of 75 shows another possibility: 75, 340, 170, 85. Is this sequence infinite?
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, E16
EXAMPLE
Collatz trajectory of 7 is {7, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5, 16, 8, 4, 2, 1}. It contains the numbers 40, 20, 10, 5 and no other term divisible by 5. Because no integer < 7 has this property, a(1) = 7.
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; fQ[n_] := Module[{c = Collatz[n]}, Length[Select[c, Mod[#, 5] == 0 &]] == 4]; Select[Range[1, 1000, 2], fQ] (* T. D. Noe, Feb 23 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jayanta Basu, Feb 22 2013
STATUS
approved