|
Search: id:A034965
|
|
|
| A034965 |
|
Primes that are sum of five consecutive primes. |
|
+0
9
|
|
| 53, 67, 83, 101, 139, 181, 199, 263, 311, 331, 373, 421, 449, 587, 617, 647, 683, 733, 787, 811, 839, 863, 941, 991, 1123, 1151, 1193, 1361, 1381, 1579, 1609, 1801, 1831, 1861, 1949, 1979, 2081, 2113, 2143, 2221, 2273, 2297, 2357, 2423, 2459, 2689, 2731
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
E.g. 373 = 61 + 71 + 73 + 79 + 83.
|
|
MAPLE
|
ts_prod_n:=proc(n) local i, ans; ans:=[ ]: for i from 1 to n do if isprime(ithprime(i)+ithprime(i+1)+ithprime(i+2)+ithprime(i+3)+ithprime(i+4))= 'true' then ans:=[op(ans), ithprime(i)+ithprime(i+1)+ithprime(i+2)+ithprime(i+3)+ithprime(i+4) ]: fi od: end: ts_prod_n(701); - Jani Melik (jani_melik(AT)hotmail.com), May 05 2006
|
|
MATHEMATICA
|
Clear[Sum5Primes]; Sum5Primes[a_]:=Module[{p}, p=Prime[a]+Prime[a+1]+Prime[a+2]+Prime[a+3]+Prime[a+4]]; lst={}; Do[If[PrimeQ[p=Sum5Primes[n]], AppendTo[lst, p]], {n, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 06 2009]
|
|
CROSSREFS
|
Cf. A001043, A011974, A034707.
Sequence in context: A061946 A039531 A115936 this_sequence A160029 A045807 A007644
Adjacent sequences: A034962 A034963 A034964 this_sequence A034966 A034967 A034968
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com), Oct 15 1998.
|
|
|
Search completed in 0.002 seconds
|
