A023345 Primes that remain prime through 5 iterations of function f(x) = 6x + 5.
13, 4637, 5849, 5923, 16183, 16979, 34919, 36277, 67003, 79337, 115571, 159739, 175141, 245753, 249133, 305717, 341569, 359353, 383833, 437263, 455317, 498497, 511519, 567121, 579961, 581699, 633797, 683831, 693431, 849197, 972197, 1022449
Offset: 1
Keywords
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[n: n in [1..10000000] | IsPrime(n) and IsPrime(6*n+5) and IsPrime(36*n+35) and IsPrime(216*n+215) and IsPrime(1296*n+1295) and IsPrime(7776*n+7775)] // Vincenzo Librandi, Aug 05 2010
-
Mathematica
Select[Range[1100000],And@@PrimeQ[NestList[6#+5&,#,5]]&] (* Harvey P. Dale, Mar 31 2012 *)
Comments