A157935 Primes of the form m^2+1 such that m^2-7 = prevprime(m^2) (= A007917(m^2)).
2917, 4357, 8101, 24337, 57601, 72901, 93637, 224677, 324901, 331777, 404497, 562501, 608401, 1166401, 1742401, 1822501, 4137157, 4639717, 5788837, 7290001, 7617601, 10265617, 10497601, 10929637, 12110401, 12362257, 14107537, 14243077
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[4000]^2+1,PrimeQ[#]&&NextPrime[#,-1]==#-8&] (* Harvey P. Dale, Jun 14 2020 *)
-
PARI
forstep(m=2,9999,2, isprime(m^2+1) & precprime(m^2)==m^2-7 & print1(m^2+1,","))
Comments