OFFSET
1,2
COMMENTS
Conjecture: for n>11, a(n)>1.
Oppermann conjectured in 1882 that a(n)>0 for n>1. - T. D. Noe, Sep 16 2008
REFERENCES
Paulo Ribenboim, The New Book of Prime Number Records, 3rd ed., 1995, Springer, p. 248.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
Wikipedia, Oppermann's conjecture
MATHEMATICA
Table[PrimePi[n^2]-PrimePi[n^2-n-1], {n, 100}] (* Harvey P. Dale, Jul 24 2015 *)
PROG
(PARI) a(n) = sum(k=n^2-n, n^2, isprime(k))
(PARI) a(n)=my(s); forprime(p=n^2-n, n^2, s++); s \\ Charles R Greathouse IV, Jan 18 2016
(Haskell)
a094189 n = sum $ map a010051' [n*(n-1) .. n^2]
-- Reinhard Zumkeller, Jun 07 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, May 25 2004
STATUS
approved