OFFSET
1,1
EXAMPLE
12 is a member since 12 + 6 + 3 + 10 + 5 + 16 + 8 + 4 + 2 + 1 = 67 is a prime.
MATHEMATICA
coll[n_]:=NestWhileList[If[EvenQ[#], #/2, 3#+1] &, n, #>1 &]; Select[Range[500], PrimeQ[Total[coll[#]]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jayanta Basu, May 14 2013
STATUS
approved