A238669
Primes p such that (p+7)^2+7 is prime but (p+j)^2+j is not prime for all 0
107, 293, 359, 389, 397, 401, 433, 461, 647, 727, 797, 821, 977, 1063, 1163, 1229, 1301, 1367, 1427, 1451, 1499, 1571, 1657, 1721, 1987, 2099, 2111, 2179, 2207, 2351, 2447, 2707, 2797, 2801, 2861, 2957, 3037, 3187, 3221, 3457, 3463, 3527, 3541, 3557, 3607
Offset: 1
Keywords
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..10000
Crossrefs
Column k=7 of A238086.
Programs
-
Mathematica
Select[Prime[Range[600]],PrimeQ[(#+7)^2+7]&&NoneTrue[Table[(#+j)^2+j,{j,6}],PrimeQ]&] (* Harvey P. Dale, Apr 04 2024 *)