login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A134179 Primes in A007468. 2
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 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
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
Sequence in context: A042059 A343830 A137626 * A223145 A188225 A164676
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Oct 16 2007
EXTENSIONS
Edited by Zak Seidov, Feb 05 2010
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 21 07:37 EDT 2024. Contains 371850 sequences. (Running on oeis4.)