A023323 Primes that remain prime through 4 iterations of function f(x) = 8x + 9.
2293, 5653, 11503, 76003, 88813, 100613, 142993, 294793, 314983, 351383, 419603, 463633, 473293, 520363, 682063, 694523, 780733, 836873, 872393, 895003, 1004063, 1043723, 1085473, 1277593, 1290293, 1318783, 1336463, 1446043, 1483633, 1539773
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [1..5000000] | IsPrime(n) and IsPrime(8*n+9) and IsPrime(64*n+81) and IsPrime(512*n+657) and IsPrime(4096*n+5265)] // Vincenzo Librandi, Aug 04 2010
-
Mathematica
Select[Prime[Range[120000]],AllTrue[Rest[NestList[8#+9&,#,4]],PrimeQ]&] (* Harvey P. Dale, Jan 15 2016 *)
Comments