A129932 Numbers n such that n remains prime through 6 iterations of function f(x) = 2x + 5.

541, 1861, 109111, 119101, 131617, 895351, 1774447, 2343037, 2906623, 3686743, 3686953, 4330783, 4594309, 4921129, 4922329, 5495989, 5654137, 6712591, 7093057, 7729537, 9188623, 9842263, 10492297, 10991983, 11270671, 12307453

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

Cf. A023332, A023304, A023274, A023243.

Sequence in context: A112371 A031937 A031921 * A226800 A320619 A218095

Adjacent sequences: A129929 A129930 A129931 * A129933 A129934 A129935

Keyword

nonn

Author

Ray G. Opao, Jun 06 2007

Extensions

More terms from Robert G. Wilson v, Jun 06 2007

Status

approved