OFFSET
1,1
LINKS
Robert G. Wilson v, Table of a(n) for n = 1..149.
MATHEMATICA
fQ[n_] := Union[PrimeQ /@ NestList[2 # + 5 &, n, 6]] == {True}; lst = {}; Do[ p = Prime@n; If[fQ@p, Print@p; AppendTo[lst, p]], {n, 10^7}]; lst (* Robert G. Wilson v *)
Select[Range[12400000], And@@PrimeQ/@NestList[2#+5&, #, 6]&] (* Harvey P. Dale, Sep 09 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray G. Opao, Jun 06 2007
EXTENSIONS
More terms from Robert G. Wilson v, Jun 06 2007
STATUS
approved