A064495 Prime(n^2) +/- n are primes.

30, 138, 960, 1056, 1278, 1470, 1968, 2538, 2730, 3030, 3570, 3810, 4122, 4248, 4350, 4506, 5568, 5586, 5718, 5856, 6156, 6486, 6570, 6942, 7194, 7260, 7380, 7410, 7422, 7584, 7920, 8034, 8304, 8910, 9180, 11340, 12684, 13260, 13380, 13620

Offset

1,1

Links

Table of n, a(n) for n=1..40.

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

Sequence in context: A117750 A348828 A158462 * A267904 A218407 A347222

Adjacent sequences: A064492 A064493 A064494 * A064496 A064497 A064498

Keyword

easy,nonn

Author

Robert G. Wilson v, Oct 04 2001

Status

approved