OFFSET
1,1
COMMENTS
A subset of A057447. - Alexander Adamchuk, Sep 17 2006
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = Prime[ A122933[n] ]. - Alexander Adamchuk, Sep 20 2006
MATHEMATICA
Flatten[Table[If[PrimeQ[Sum[ PrimePi[n], {n, 1, m}]], Sum[PrimePi[n], {n, 1, m}], {}], {m, 1, 200}]]
PROG
(Haskell)
a122516 n = a122516_list !! (n-1)
a122516_list = filter ((== 1) . a010051) a046992_list
-- Reinhard Zumkeller, Feb 25 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 16 2006
EXTENSIONS
Edited by N. J. A. Sloane, Sep 17 2006
More terms from Alexander Adamchuk, Sep 17 2006
Definition corrected, Sep 30 2006
STATUS
approved