|
Search: id:A127334
|
|
|
| A127334 |
|
Numbers that are the sum of 7 consecutive primes. |
|
+0
10
|
|
| 58, 75, 95, 119, 143, 169, 197, 223, 251, 281, 311, 341, 371, 401, 431, 463, 493, 523, 559, 593, 625, 659, 689, 719, 757, 791, 827, 863, 905, 947, 991, 1027, 1063, 1099, 1139, 1171, 1211, 1247, 1281, 1313, 1351, 1395, 1441, 1479, 1519, 1561, 1603, 1643
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
a(n) = absolute value of coefficient of x^6 of the polynomial Prod_{j=0,6}(x-prime(n+j)) of degree 7; the roots of this polynomial are prime(n), ..., prime(n+6).
|
|
MATHEMATICA
|
a = {}; Do[AppendTo[a, Sum[Prime[x + n], {n, 0, 6}]], {x, 1, 50}]; a
|
|
PROGRAM
|
(PARI) 1. {m=48; k=7; for(n=0, m-1, print1(a=sum(j=1, k, prime(n+j)), ", "))} 2. {m=48; k=7; for(n=1, m, print1(abs(polcoeff(prod(j=0, k-1, (x-prime(n+j))), k-1)), ", "))} - Klaus Brockhaus, Jan 13 2007
(SAGE) BB = primes_first_n(62) list = [] for i in range(55): list.append(BB[i]+BB[i+1]+BB[i+2]+BB[i+3]+BB[i+4]+BB[i+5]+BB[i+6]) list - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), May 14 2007
|
|
CROSSREFS
|
Cf. A011974, A001043, A034961, A034963, A034964, A127333, A127335, A127336, A127337, A127338, A127339, A082246.
Sequence in context: A129546 A127024 A010338 this_sequence A039430 A043253 A044033
Adjacent sequences: A127331 A127332 A127333 this_sequence A127335 A127336 A127337
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 11 2007
|
|
EXTENSIONS
|
Edited by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jan 13 2007
|
|
|
Search completed in 0.002 seconds
|
