A125780 Numbers n such that n^8 + 1, n^8 + 3, n^8 + 7 and n^8 + 9 are all prime.

5241160, 19083350, 24619690, 53634830, 56604020

Offset: 1

Author

Artur Jasinski, Dec 11 2006

Keywords

• nonn

Crossrefs

Cf. A125779.

Programs

Mathematica

Do[If[(PrimeQ[x^8+1])&&(PrimeQ[x^8+3])&&(PrimeQ[x^8+7])&&(PrimeQ[x^8+9]),Print[x]],{x,1,30000000}] (*Artur Jasinski*)
Select[Range[567*10^5],AllTrue[#^8 +{1,3,7,9},PrimeQ]&] (* Harvey P. Dale, Oct 22 2024 *)