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
Links
- Shawn A. Broyles, Table of n, a(n) for n = 1..52
- Shawn A. Broyles, Lua script
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