OFFSET
1,1
COMMENTS
Digital root of all values > 3 is 5, compare A017221.
MATHEMATICA
f[n_] := n^4 + n^2 + 3; Select[f /@ Range[0, 200], PrimeQ] (* Amiram Eldar, Aug 24 2019 *)
PROG
(MATLAB)
a = [];
for n = 0:1e3
x = n.^4+n.^2+3;
if isprime(x); a = [a, x]; end;
end
(Python)
from sympy import isprime
a = []
for n in range(0, 1000):
x = n**4+n**2+3
if isprime(x):
a.append(x)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Christopher R. Madan, Aug 19 2019
STATUS
approved