OFFSET
1,1
COMMENTS
Conjecture: the sequence is infinite.
EXAMPLE
4^2 + {1,3,7,13,31} = {17,19,23,29,47} are all prime.
MAPLE
q:= k-> andmap(j-> isprime(k^2+j), [1, 3, 7, 13, 31]):
select(q, [$0..1000000])[]; # Alois P. Heinz, Jul 27 2022
MATHEMATICA
Select[Range[10^6], AllTrue[#^2 + {1, 3, 7, 13, 31}, PrimeQ] &] (* Amiram Eldar, Jul 27 2022 *)
PROG
(Python)
from sympy import isprime
def ok(n): return all(isprime(n*n+i) for i in {1, 3, 7, 13, 31})
print([k for k in range(10**6) if ok(k)]) # Michael S. Branicky, Jul 27 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Jul 27 2022
STATUS
approved