OFFSET
1,1
EXAMPLE
30 is in the sequence because the thirtieth prime is 113. 113 +/- 30 = 83 and 143 both of which are primes.
MATHEMATICA
Select[ Range[15000], PrimeQ[ Prime[ #^2] + # ] && PrimeQ[ Prime[ #^2] - # ] &]
Select[Range[15000], And@@PrimeQ[Prime[#^2]+{#, -#}]&] (* Harvey P. Dale, May 27 2014 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Oct 04 2001
STATUS
approved