OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
q[n_] := AllTrue[{n, n^2 - 2, 2*n^2 - 1}, PrimeQ]; Select[Range[10000], q]
PROG
(Python)
from itertools import islice
from sympy import isprime, nextprime
def A349327(): # generator of terms
n = 2
while True:
if isprime(n**2-2) and isprime (2*n**2-1): yield n
n = nextprime(n)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 15 2021
STATUS
approved