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 A134179 #27 May 23 2023 08:16:21 %S A134179 2,31,199,659,1601,5693,38917,51797,84463,697373,8059169,8510617, %T A134179 9465251,28268543,36254039,40121999,48667219,54973229,63627491, %U A134179 90443813,97626083,102534899,110364689,139100699,161967391,183528421,219566989 %N A134179 Primes in A007468. %H A134179 Shawn A. Broyles, <a href="/A134179/b134179.txt">Table of n, a(n) for n = 1..52</a> %H A134179 Shawn A. Broyles, <a href="/A134179/a134179.txt">Lua script</a> %t A134179 n = 1000; Select[Total /@ TakeList[Prime[Range@(n(n+1)/2)], Range@n], PrimeQ] (* _Zhining Yang_, May 22 2023 *) %o A134179 (UBASIC) %o A134179 10 K=1 %o A134179 20 A=nxtprm(A):B=B+A:C=C+1: if C<>K then 20:else 30 %o A134179 30 L=B/K %o A134179 31 print K;B;:Q=prmdiv(B): if Q=B then print B;"-":stop:else 40 %o A134179 40 B=0:K=K+1:C=0:goto 20 %Y A134179 Cf. A134180, A134244, A134245, A134246. %K A134179 easy,nonn %O A134179 1,1 %A A134179 _Enoch Haga_, Oct 16 2007 %E A134179 Edited by _Zak Seidov_, Feb 05 2010