OFFSET
1,1
LINKS
H. v. Eitzen, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 5 because 5 is the first Century to have a prime number (17) of primes.
MAPLE
A038822 := proc(n) numtheory[pi](n*100)-numtheory[pi]((n-1)*100) ; end: A160709 := proc(n) option remember ; local a; if n = 1 then 5 ; else for a from procname(n-1)+1 do if isprime( A038822(a) ) then RETURN(a) ; fi; od: fi; end: seq(A160709(n), n=1...90) ; # R. J. Mathar, May 27 2009
MATHEMATICA
Select[Range[200], PrimeQ[PrimePi[100#]-PrimePi[100(#-1)]]&] (* Harvey P. Dale, Oct 03 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, May 25 2009
EXTENSIONS
Extended by Ray Chandler, May 25 2009
More terms from R. J. Mathar, May 27 2009
STATUS
approved