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,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

Cf. A046992, A013918, A057447, A122933.

Sequence in context: A364962 A153065 A089439 * A243899 A168161 A217792

Adjacent sequences: A122513 A122514 A122515 * A122517 A122518 A122519

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