A244086 Primes p such that p remains prime through 7 iterations of function f(x) = 2*x + 3.
477727, 507757, 30596497, 33145687, 36180527, 61192997, 141339217, 148590307, 193394347, 297180617, 374066267, 395534747, 398001547, 419795137, 488716897
Offset: 1
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(600000000) | forall{i: i in [1..7] | IsPrime(2^i*p+3*(2^i-1))}]; -
Mathematica
Select[Prime[Range[600000]], And@@PrimeQ[NestList[2 # + 3 &, #, 7]] &]
Extensions
Inappropriate MAGMA code simplified and other terms added from Bruno Berselli, Jun 24 2014