OFFSET
1,1
MATHEMATICA
fQ[n_] := Union[PrimeQ /@ NestList[2 # + 5 &, n, 7]] == {True}; lst = {}; Do[ p = Prime@n; If[fQ@p, Print@p; AppendTo[lst, p]], {n, 10^7}]; lst (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray G. Opao, Jun 06 2007
EXTENSIONS
More terms from Robert G. Wilson v, Jun 06 2007
STATUS
approved