Search: id:A127334
Results 1-1 of 1 results found.

%I A127334
%S A127334 58,75,95,119,143,169,197,223,251,281,311,341,371,401,431,463,493,523,
%T A127334 559,593,625,659,689,719,757,791,827,863,905,947,991,1027,1063,1099,
%U A127334 1139,1171,1211,1247,1281,1313,1351,1395,1441,1479,1519,1561,1603,1643
%N A127334 Numbers that are the sum of 7 consecutive primes.
%C A127334 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).
%t A127334 a = {}; Do[AppendTo[a, Sum[Prime[x + n], {n, 0, 6}]], {x, 1, 50}]; a
%o A127334 (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
%o A127334 (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
%Y A127334 Cf. A011974, A001043, A034961, A034963, A034964, A127333, A127335, A127336, 
               A127337, A127338, A127339, A082246.
%Y A127334 Sequence in context: A129546 A127024 A010338 this_sequence A039430 A043253 
               A044033
%Y A127334 Adjacent sequences: A127331 A127332 A127333 this_sequence A127335 A127336 
               A127337
%K A127334 nonn
%O A127334 1,1
%A A127334 Artur Jasinski (grafix(AT)csl.pl), Jan 11 2007
%E A127334 Edited by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jan 13 2007

Search completed in 0.001 seconds