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,1

Links

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

Shawn A. Broyles, Lua script

Mathematica

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

Prog

(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

Crossrefs

Cf. A134180, A134244, A134245, A134246.

Sequence in context: A042059 A343830 A137626 * A223145 A188225 A164676

Adjacent sequences: A134176 A134177 A134178 * A134180 A134181 A134182

Keyword

easy,nonn

Author

Enoch Haga, Oct 16 2007

Extensions

Edited by Zak Seidov, Feb 05 2010

Status

approved