OFFSET
1,8
COMMENTS
It is assumed that Collatz trajectory ends at 1.
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, E16.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
EXAMPLE
a(8)=4, since 8 appears in Collatz trajectories of n < 8; similarly a(9)=0 since 9 does not appear in Collatz trajectories n < 9.
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; nn = 100; t = Table[Collatz[n], {n, nn}]; Table[r = 0; Do[If[MemberQ[t[[i]], k], r++], {i, k - 1}]; r, {k, nn}] (* T. D. Noe, Feb 26 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jayanta Basu, Feb 26 2013
STATUS
approved