A122516 Primes in A046992.

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

Author

Roger L. Bagula, Sep 16 2006

Keywords

• nonn

Comments

A subset of A057447. - Alexander Adamchuk, Sep 17 2006

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A046992, A013918, A057447, A122933.

Programs

Haskell

a122516 n = a122516_list !! (n-1)
a122516_list = filter ((== 1) . a010051) a046992_list
-- Reinhard Zumkeller, Feb 25 2012

Mathematica

Flatten[Table[If[PrimeQ[Sum[ PrimePi[n], {n, 1, m}]], Sum[PrimePi[n], {n, 1, m}], {}], {m, 1, 200}]]

Formula

a(n) = Prime[ A122933[n] ]. - Alexander Adamchuk, Sep 20 2006

Extensions

Edited by N. J. A. Sloane, Sep 17 2006

More terms from Alexander Adamchuk, Sep 17 2006

Definition corrected, Sep 30 2006