%I #7 Jun 14 2020 17:01:26
%S 2917,4357,8101,24337,57601,72901,93637,224677,324901,331777,404497,
%T 562501,608401,1166401,1742401,1822501,4137157,4639717,5788837,
%U 7290001,7617601,10265617,10497601,10929637,12110401,12362257,14107537,14243077
%N Primes of the form m^2+1 such that m^2-7 = prevprime(m^2) (= A007917(m^2)).
%C A subsequence of A005574. The values for m are listed in A157934, the next lower prime in A157183.
%H Harvey P. Dale, <a href="/A157935/b157935.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A157934(n)^2+1 = A157183(n)+8
%t Select[Range[4000]^2+1,PrimeQ[#]&&NextPrime[#,-1]==#-8&] (* _Harvey P. Dale_, Jun 14 2020 *)
%o (PARI) forstep(m=2,9999,2, isprime(m^2+1) & precprime(m^2)==m^2-7 & print1(m^2+1,","))
%Y Cf. A157183, A028883, A028882, A005574, A001912, A157934.
%K nonn
%O 1,1
%A _M. F. Hasler_, Mar 18 2009
|