|
Search: id:A034962
|
|
|
| A034962 |
|
Primes that are the sum of three consecutive primes. |
|
+0
16
|
|
| 23, 31, 41, 59, 71, 83, 97, 109, 131, 173, 199, 211, 223, 251, 269, 311, 349, 439, 457, 487, 503, 607, 661, 701, 829, 857, 883, 911, 941, 1033, 1049, 1061, 1151, 1187, 1229, 1249, 1303, 1367, 1381, 1409, 1433, 1493, 1511, 1553, 1667, 1867, 1931, 1973, 1993
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Zak Seidov, Table of n, a(n) for n=1..2000
|
|
EXAMPLE
|
E.g. 131 = 41 + 43 + 47.
A034962(n)=p+q+r, where p= A073681(n), and p<q<r are three consecutive primes. [From Zak Seidov (zakseidov(AT)yahoo.com), Mar 09 2009]
|
|
MAPLE
|
a:=proc(n) if isprime(ithprime(n)+ithprime(n+1)+ithprime(n+2))=true then ithprime(n)+ithprime(n+1)+ithprime(n+2) else fi end: seq(a(n), n=1..120); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Apr 24 2006
|
|
MATHEMATICA
|
a = {}; Do[k = Prime[x] + Prime[x + 1] + Prime[x + 2]; If[PrimeQ[k], AppendTo[a, k]], {x, 1, 350}]; a (Artur Jasinski (grafix(AT)csl.pl), Jan 27 2007)
|
|
PROGRAM
|
(PARI) forprime(p=2, 1000, p2=nextprime(p+1); p3=nextprime(p2+1); q=p+p2+p3; if(isprime(q), print1(q", ")) ) - Max Alekseyev, Jan 26 2007
(PARI) {p=2; q=3; for(n=1, 100, r=nextprime(q+1); if(isprime(t=p+q+r), print1(t", ")); p=q; q=r; )} [From Zak Seidov (zakseidov(AT)yahoo.com), Mar 09 2009]
|
|
CROSSREFS
|
Cf. A001043, A011974, A034707. Different from A050207.
Cf. A073681 Smallest of three consecutive primes whose sum is a prime. [From Zak Seidov (zakseidov(AT)yahoo.com), Mar 09 2009]
Sequence in context: A026051 A141818 A060328 this_sequence A133659 A106312 A023679
Adjacent sequences: A034959 A034960 A034961 this_sequence A034963 A034964 A034965
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com), Oct 15 1998.
|
|
|
Search completed in 0.005 seconds
|
