OFFSET
1,1
EXAMPLE
3^8+8 = 6569 is prime and 3^8-8 = 6553 is prime. Thus, 3 is a member of this sequence.
MATHEMATICA
Select[Range[3, 62000, 6], AllTrue[#^8+{8, -8}, PrimeQ]&](* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 07 2020 *)
PROG
(Python)
import sympy
from sympy import isprime
def TwoBoth(x):
for k in range(10**6):
if isprime(k**x+x) and isprime(k**x-x):
print(k)
TwoBoth(8)
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Mar 20 2014
STATUS
approved
