%I #11 Jun 18 2018 05:37:07
%S 0,1,3,4,6,7,9,11,11,12,16,17,21,23,24,24,30,30,36,37,39,40,46,47,48,
%T 51,53,54,61,62,68,70,72,74,76,77,86,87,91,92,99,100,110,112,114,117,
%U 126,128,130,132,135,137,146,150,151,154,156,157,168,171,184,186,189
%N a(n) = Pi(n*Pi(n)).
%H Harry J. Smith, <a href="/A065313/b065313.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A000720(n*A000720(n)).
%t Table[PrimePi[w*PrimePi[w]], {w, 1, 100}].
%o (PARI) { for (n=1, 1000, if (n>1, a=primepi(n*primepi(n)), a=0); write("b065313.txt", n, " ", a) ) } \\ _Harry J. Smith_, Oct 16 2009
%Y Cf. A000040, A000720.
%K nonn
%O 1,3
%A _Labos Elemer_, Oct 29 2001
|