OFFSET
1,1
MATHEMATICA
DeleteDuplicates@ Flatten@ Table[Select[NestWhileList[If[EvenQ@ #, #/2, 3 # + 1] &, n, # > 1 &], PrimeQ], {n, 200}] (* Michael De Vlieger, Jan 02 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Matthew Campbell, Jan 02 2017
STATUS
approved