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

Author

Roger L. Bagula, May 11 2006

Keywords

• nonn

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

Crossrefs

Cf. A005846, A050268, A117081.

Programs

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 *)

Formula

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

Extensions

Name edited by Robert Israel, Mar 03 2016