OFFSET
1,2
EXAMPLE
n=10: a[10]=3 and the 3 primes in interval [95, 105] around 10^2=100 are {97,101,103}.
MATHEMATICA
f[n_] := (PrimePi[n^2 + Ceiling[Log[n^2]]] - PrimePi[n^2 - Ceiling[Log[n^2]] - 1]); Table[ f[n], {n, 105}] (* Robert G. Wilson v, Jul 14 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 14 2004
STATUS
approved