A134179 Primes in A007468.

2, 31, 199, 659, 1601, 5693, 38917, 51797, 84463, 697373, 8059169, 8510617, 9465251, 28268543, 36254039, 40121999, 48667219, 54973229, 63627491, 90443813, 97626083, 102534899, 110364689, 139100699, 161967391, 183528421, 219566989

Offset: 1

Author

Enoch Haga, Oct 16 2007

Keywords

• easy
• nonn

Links

• Shawn A. Broyles, Table of n, a(n) for n = 1..52
• Shawn A. Broyles, Lua script

Crossrefs

Cf. A134180, A134244, A134245, A134246.

Programs

Mathematica

n = 1000; Select[Total /@ TakeList[Prime[Range@(n(n+1)/2)], Range@n], PrimeQ] (* Zhining Yang, May 22 2023 *)

UBASIC

10 K=1
20 A=nxtprm(A):B=B+A:C=C+1: if C<>K then 20:else 30
30 L=B/K
31 print K;B;:Q=prmdiv(B): if Q=B then print B;"-":stop:else 40
40 B=0:K=K+1:C=0:goto 20

Extensions

Edited by Zak Seidov, Feb 05 2010