A246562 Primes p such that 4+p, 4+p^2, 4+p^3, 4+p^5, and 4+p^7 are all prime.

7, 469363, 2552713, 3378103, 6595597, 6629683, 39837517, 46024063, 46167307, 97371007, 97629403, 105528217, 136983307, 169483033, 202953613, 213792193, 216520987, 216738043, 221705647, 304033927, 317502193, 359133553

Offset: 1

Author

Zak Seidov, Aug 29 2014

Keywords

• nonn

Comments

All terms are == {3, 7} mod 10. Subsequence of A246519.

Links

• Zak Seidov, Table of n, a(n) for n = 1..60

Crossrefs

Cf. A007591, A073573, A125260, A172367, A246519.

Programs

Mathematica

Select[Prime[Range[193*10^5]],AllTrue[#^{1,2,3,5,7}+4,PrimeQ]&] (* Harvey P. Dale, Sep 07 2024 *)

PARI

forprime(p=1,10^9,if(ispseudoprime(4+p) && ispseudoprime(4+p^2) && ispseudoprime(4+p^3) && ispseudoprime(4+p^5) && ispseudoprime(4+p^7), print1(p,", "))) \\ Derek Orr, Aug 30 2014