|
%I #5 Jul 14 2012 13:28:24
%S 7,25,51,198,161,489,339,882,1979,847,3251,2779,1601,3641,6674,8283,
%T 3107,10662,8176,4460,14777,11078,18741,28982,16373,8678,18282,9658,
%U 20424,82989,27252,44036,15543,84265,18312,57632,62079,43930,69885
%N Number of primes between (Prime[n + 1])^Pi and (Prime[n])^Pi.
%H Robert G. Wilson v, <a href="/A137380/b137380.txt">Table of n, a(n) for n=1..1000</a>.
%e 7 primes between 2^Pi (8.8...) and 3^Pi (31.5..)
%e 25 primes between 3^Pi (31.5...) and 5^Pi (156.9..)
%e 51 primes between 5^Pi (156.9...) and 7^Pi (451.8..)
%t Table[PrimePi[(Prime[n + 1])^Pi] - PrimePi[(Prime[n])^Pi], {n, 1, 21}]
%t f[n_] := PrimePi[Prime[n + 1]^Pi] - PrimePi[Prime@n^Pi]; Array[f, 41] - _Robert G. Wilson v_, Apr 17 2008
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 09 2008
%E More terms from _Robert G. Wilson v_, Apr 17 2008
|
