A057015 Numbers n such that n^2 + 1, n^2 + 3, n^2 + 7 and n^2 + 9 are all primes.

2, 10, 1420, 2080, 2600, 20500, 22630, 46960, 65300, 81610, 153560, 173590, 187330, 195290, 238850, 255230, 301690, 315410, 316250, 346580, 395860, 398710, 439750, 496220, 498550, 506360, 555110, 609400, 618580, 872950, 927070

Offset: 1

Author

Robert G. Wilson v, Sep 09 2000

Keywords

• nonn

Programs

Mathematica

Select[ Range[ 2, 10^6, 2 ], PrimeQ[ #^2 + 1 ] && PrimeQ[ #^2 + 3 ] && PrimeQ[ #^2 + 7 ] && PrimeQ[ #^2 + 9 ] & ]
 Select[Range[2,1000000,2],And@@PrimeQ[#^2+{1,3,7,9}]&](* Harvey P. Dale, Oct 03 2012 *)