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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 11 2006
EXTENSIONS
Name edited by Robert Israel, Mar 03 2016
STATUS
approved