%I #5 May 27 2014 15:25:09
%S 30,138,960,1056,1278,1470,1968,2538,2730,3030,3570,3810,4122,4248,
%T 4350,4506,5568,5586,5718,5856,6156,6486,6570,6942,7194,7260,7380,
%U 7410,7422,7584,7920,8034,8304,8910,9180,11340,12684,13260,13380,13620
%N Prime(n^2) +/- n are primes.
%e 30 is in the sequence because the thirtieth prime is 113. 113 +/- 30 = 83 and 143 both of which are primes.
%t Select[ Range[15000], PrimeQ[ Prime[ #^2] + # ] && PrimeQ[ Prime[ #^2] - # ] &]
%t Select[Range[15000],And@@PrimeQ[Prime[#^2]+{#,-#}]&] (* _Harvey P. Dale_, May 27 2014 *)
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Oct 04 2001
|