OFFSET
0
LINKS
Eric Weisstein's World of Mathematics, Prime-Generating Polynomial.
EXAMPLE
a(39) = 1 because 39^2 - 39 + 41 = 1523 is prime.
MATHEMATICA
Table[If[PrimeQ[n^2 - n + 41], 1, 0], {n, 1, 150}]
PROG
(PARI) a(n) = isprime(n^2-n+41); \\ Michel Marcus, Mar 08 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Jan 29 2005
EXTENSIONS
a(0) = 1 prepended by Michel Marcus, Mar 08 2023
STATUS
approved