OFFSET
1,1
COMMENTS
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime Number
Eric Weisstein's World of Mathematics, Prime Counting Function
MATHEMATICA
Select[Array[# PrimePi[#] - 1 &, {200}], PrimeQ] (* Michael De Vlieger, Sep 01 2015 *)
PROG
(PARI) list(lim)=my(v=List(), k, pi, t); while(1, if(isprime(k++), pi++); t=k*pi-1; if(t>lim, return(Vec(v))); if(isprime(t), listput(v, t))) \\ Charles R Greathouse IV, Sep 18 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 01 2015
EXTENSIONS
Terms a(32)-a(55) added by Michael De Vlieger, Sep 01 2015
Corrected by Charles R Greathouse IV, Sep 18 2015
STATUS
approved