A228123 Number of primes generated from Euler's polynomial x^2 + x + 41 from x = 1 to 10^n.

1, 10, 86, 581, 4148, 31984, 261080, 2208196, 19132652, 168806740, 1510676802

Offset

0,2

Links

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

Formula

a(n) = A331876(n) - 1. - Amiram Eldar, Sep 23 2023

Example

a(4) = 4148 because the number of primes generated from Euler's polynomial x^2 + x + 41 from x = 1 to 10^4 are 4148.

Mathematica

a = 0; n = 1; t = {}; Do[If[PrimeQ[x^2 + x + 41], a = a + 1]; If[Mod[x, n] == 0, n = n*10; AppendTo[t, a]], {x, 1, 1000000000}]; t

Crossrefs

Cf. A005846, A056561, A331876.

Sequence in context: A145146 A252981 A184122 * A163412 A287827 A321853

Adjacent sequences: A228120 A228121 A228122 * A228124 A228125 A228126

Keyword

nonn,more

Author

Shyam Sunder Gupta, Aug 11 2013

Extensions

a(10) from Amiram Eldar, Sep 23 2023

Status

approved