A102609 a(n) = 1 iff n^2-n+41 is prime (else 0).

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0

Offset

0

Links

Table of n, a(n) for n=0..105.

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

Cf. A005846, A202018.

Sequence in context: A015526 A016182 A015936 * A015772 A016288 A016030

Adjacent sequences: A102606 A102607 A102608 * A102610 A102611 A102612

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