%I #14 Mar 12 2014 16:36:57
%S 3,5,11,19,23,37,43,61,83,107,181,271,283,349,467,499,547,563,743,821,
%T 863,947,991,1013,1571,2341,2437,2633,2803,2837,2939,3299,3373,3677,
%U 3833,4073,4793,4973,5387,5479,5573,6043,6091,6737,7907,8017,8693,8867
%N Primes in A046992.
%C A subset of A057447. - _Alexander Adamchuk_, Sep 17 2006
%H Reinhard Zumkeller, <a href="/A122516/b122516.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = Prime[ A122933[n] ]. - _Alexander Adamchuk_, Sep 20 2006
%t Flatten[Table[If[PrimeQ[Sum[ PrimePi[n], {n, 1, m}]], Sum[PrimePi[n], {n, 1, m}], {}], {m, 1, 200}]]
%o (Haskell)
%o a122516 n = a122516_list !! (n-1)
%o a122516_list = filter ((== 1) . a010051) a046992_list
%o -- _Reinhard Zumkeller_, Feb 25 2012
%Y Cf. A046992, A013918, A057447, A122933.
%K nonn
%O 1,1
%A _Roger L. Bagula_, Sep 16 2006
%E Edited by _N. J. A. Sloane_, Sep 17 2006
%E More terms from _Alexander Adamchuk_, Sep 17 2006
%E Definition corrected, Sep 30 2006