A023350 Primes that remain prime through 5 iterations of function f(x) = 8x + 7.
25589, 220469, 225629, 286619, 783269, 1215629, 1407389, 1542029, 1642919, 2329469, 2776979, 3104159, 4082759, 4229129, 5405999, 5905619, 6548849, 6862859, 7681409, 7904669, 8623799, 8971049, 9599309, 9658469, 9725039, 11420579
Offset: 1
Keywords
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[n: n in [1..19000000] | IsPrime(n) and IsPrime(8*n+7) and IsPrime(64*n+63) and IsPrime(512*n+511) and IsPrime(4096*n+4095) and IsPrime(32768*n+32767)]; // Vincenzo Librandi, Aug 05 2010
-
Mathematica
i5Q[p_]:=AllTrue[Rest[NestList[8#+7&,p,5]],PrimeQ]; Select[Prime[Range[760000]],i5Q] (* Harvey P. Dale, Jul 05 2025 *)
Formula
a(n) == 29 (mod 30). - John Cerkan, Nov 08 2016
Comments