A115244 Indices of primes generated by Fung and Ruby's prime generating polynomial A050268.

402, 299, 206, 118, 24, 78, 141, 191, 224, 257, 272, 279, 276, 264, 242, 211, 167, 112, 38, 72, 162, 256, 350, 448, 558, 670, 786, 913, 1042, 1181, 1319, 1462, 1620, 1777, 1942, 2119, 2289, 2473, 2664, 2851, 3051, 3250, 3458, 3684

Offset

0,1

Comments

PrimePi[Negative Prime]=0 :Absolute value is necessary because of this.

Links

G. C. Greubel, Table of n, a(n) for n = 0..7419

Formula

a(n) = PrimePi(Abs(A050268(n))).

Maple

map(numtheory:-pi, select(isprime, [seq(abs(36*n^2 - 810* n + 2753), n=0..300)])); # Robert Israel, Mar 03 2016

Mathematica

Table[PrimePi[Abs[36*n^2 - 810*n + 2753]], {n, 0, 43}]
a := Select[Table[36 n^2 - 810 n + 2753, {n, 0, 200}], PrimeQ];
PrimePi[Abs[a]] (* G. C. Greubel, Feb 08 2016 *)

Crossrefs

Cf. A005846, A050268, A117081.

Sequence in context: A031628 A179293 A097742 * A031518 A104391 A250753

Adjacent sequences: A115241 A115242 A115243 * A115245 A115246 A115247

Keyword

nonn

Author

Roger L. Bagula, May 11 2006

Extensions

Name edited by Robert Israel, Mar 03 2016

Status

approved