OFFSET
1,1
COMMENTS
See row 30 of A199636.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..697
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; t = {}; Do[If[Length[Select[Collatz[n], EvenQ]] == 30, AppendTo[t, n]], {n, 1, 100000, 2}]; t
on30Q[n_]:=Count[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #!=1&], _?EvenQ] ==30; Select[Range[1, 5131, 2], on30Q] (* Harvey P. Dale, Mar 18 2023 *)
CROSSREFS
KEYWORD
nonn,fini,less
AUTHOR
Vincenzo Librandi, Jun 08 2014
STATUS
approved