|
|
A137380
|
|
Number of primes between (prime(n + 1))^Pi and (prime(n))^Pi.
|
|
1
|
|
|
7, 25, 51, 198, 161, 489, 339, 882, 1979, 847, 3251, 2779, 1601, 3641, 6674, 8283, 3107, 10662, 8176, 4460, 14777, 11078, 18741, 28982, 16373, 8678, 18282, 9658, 20424, 82989, 27252, 44036, 15543, 84265, 18312, 57632, 62079, 43930, 69885
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
7 primes between 2^Pi (8.8...) and 3^Pi (31.5..)
25 primes between 3^Pi (31.5...) and 5^Pi (156.9..)
51 primes between 5^Pi (156.9...) and 7^Pi (451.8..)
|
|
MATHEMATICA
|
Table[PrimePi[(Prime[n + 1])^Pi] - PrimePi[(Prime[n])^Pi], {n, 1, 21}]
f[n_] := PrimePi[Prime[n + 1]^Pi] - PrimePi[Prime@n^Pi]; Array[f, 41] (* Robert G. Wilson v, Apr 17 2008 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|