A122516 - OEIS

%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