OFFSET
1,1
COMMENTS
Necessarily k is an odd multiple of 3, Least significant digit of k is e = 1, 5 or 9 (3^3 - 2, 7^3 + 2 are multiples of 5).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
189 is a term since 189^3 - 2 = 6751267 = prime(460792), 189^3 + 2 = 6751271 = prime(460793).
12471 is a term since 12471^3 - 2 = 1939562763109 = prime(i), i = 71166976775, 12471^3 + 2 = 1939562763113 = prime(i+1).
MATHEMATICA
Select[Range[10^4], And @@ PrimeQ[#^3 + {-2, 2}] &] (* Amiram Eldar, Dec 24 2019 *)
PROG
(PARI) for(n=1, 10000, my(p1=n^3-2, p2=n^3+2); if(isprime(p1)&&isprime(p2)&&ispower((p1+p2)/2, 3), print1(n, ", "))) \\ Hugo Pfoertner, Dec 24 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Ulrich Krug (leuchtfeuer37(AT)gmx.de), May 23 2010
EXTENSIONS
Edited by N. J. A. Sloane, May 23 2010
a(1) and a(21) inserted by Amiram Eldar, Dec 24 2019
STATUS
approved