%I #15 Mar 20 2015 09:01:42
%S 4,9,53,327,16097,120739,7332159,58648288,3886548158,2226457080707,
%T 18703411700669,11364488265762429,828569015819923142,
%U 7102411822168379213,525323427853694627277
%N Number of primes < 3^prime(n).
%F a(n) = A055729(prime(n)). - _R. J. Mathar_, Sep 15 2012
%e There are 4 primes < 3^2
%t Table[PrimePi[3^Prime[n]], {n, 9}] (* _Michael De Vlieger_, Mar 20 2015 *)
%o (PARI) primesless3p(n) = /* primes less than 3^p */ { forprime(x=2, n, y=primepi(3^x); print1(y", "); ); print()}
%Y Cf. A055729.
%K easy,nonn
%O 2,1
%A _Cino Hilliard_, Jul 28 2003
%E a(10)-a(16) added by _David Baugh_, Mar 17 2015