OFFSET
1,1
COMMENTS
Primes in A075190 (numbers n such that n^2 is an interprime).
MATHEMATICA
Select[PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Select[ Range[25000], 2#^2 == PrevPrim[ #^2] + NextPrim[ #^2] &], PrimeQ]
atsp[n_]:=Module[{n2=n^2}, (NextPrime[n2]+NextPrime[n2, -1])/2==n2]; Select[Prime[Range[2000]], atsp] (* Harvey P. Dale, Jan 05 2011 *)
PROG
(PARI) isok(p) = isprime(p) && ((nextprime(p^2) + precprime(p^2)) / 2 - p^2 == 0); \\ Michel Marcus, Dec 11 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Oct 30 2006
STATUS
approved