login
A115244
Indices of primes generated by Fung and Ruby's prime generating polynomial A050268.
1
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
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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 11 2006
EXTENSIONS
Name edited by Robert Israel, Mar 03 2016
STATUS
approved