Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A246562
Primes p such that 4+p, 4+p^2, 4+p^3, 4+p^5, and 4+p^7 are all prime.
3
7, 469363, 2552713, 3378103, 6595597, 6629683, 39837517, 46024063, 46167307, 97371007, 97629403, 105528217, 136983307, 169483033, 202953613, 213792193, 216520987, 216738043, 221705647, 304033927, 317502193, 359133553
OFFSET
1,1
COMMENTS
All terms are == {3, 7} mod 10. Subsequence of A246519.
LINKS
MATHEMATICA
Select[Prime[Range[193*10^5]], AllTrue[#^{1, 2, 3, 5, 7}+4, PrimeQ]&] (* Harvey P. Dale, Sep 07 2024 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 29 2014
STATUS
approved