login
A122516
Primes in A046992.
2
3, 5, 11, 19, 23, 37, 43, 61, 83, 107, 181, 271, 283, 349, 467, 499, 547, 563, 743, 821, 863, 947, 991, 1013, 1571, 2341, 2437, 2633, 2803, 2837, 2939, 3299, 3373, 3677, 3833, 4073, 4793, 4973, 5387, 5479, 5573, 6043, 6091, 6737, 7907, 8017, 8693, 8867
OFFSET
1,1
COMMENTS
A subset of A057447. - Alexander Adamchuk, Sep 17 2006
LINKS
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