OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
EXAMPLE
36 is in the sequence, because 36^3 - 7 = 46649 and 36^3 + 7 = 46663 are primes.
MATHEMATICA
Select[Range[8! ], PrimeQ[ #^3-7]&&PrimeQ[ #^3+7]&]
Select[Range[15000], AllTrue[#^3+{7, -7}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 28 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 23 2010
STATUS
approved