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