OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n=1,...,1000
EXAMPLE
n=100, Pi(100)=25, p(100-25)=p(75)=379=a(100).
MAPLE
with(numtheory); A065308:=n->ithprime(n-pi(n)); seq(A065308(n), n=1..100); # Wesley Ivan Hurt, Feb 26 2014
MATHEMATICA
Table[Prime[n - PrimePi[n]], {n, 100}] (* Wesley Ivan Hurt, Feb 26 2014 *)
PROG
(PARI) { for (n=1, 1000, write("b065308.txt", n, " ", prime(n - primepi(n))) ) } [Harry J. Smith, Oct 16 2009]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 29 2001
STATUS
approved