A127335 -id:A127335 - cp's OEIS frontend

A152010 Sum of digits of A127335(n).

14, 17, 7, 6, 9, 3, 6, 9, 7, 7, 12, 12, 10, 15, 6, 15, 15, 8, 12, 21, 12, 21, 10, 18, 24, 19, 21, 4, 12, 6, 11, 15, 12, 18, 6, 12, 9, 13, 13, 12, 17, 11, 14, 11, 21, 11, 18, 10, 14, 20, 8, 16, 4, 10, 16, 12, 15, 14, 15, 15, 17, 18, 11, 21, 15, 15, 17, 20, 12, 18, 3, 15, 20, 9, 21, 10, 6

Offset: 1

E.J.P. Vening and Roger L. Bagula, Nov 19 2008

Table[Apply[Plus, IntegerDigits[Sum[Prime[n + m], {m, 0, 7}]]], {n, 1, 100}]

a(n) = A007953( A127335(n) ). [Joerg Arndt, Aug 28 2013]

A127337 Numbers that are the sum of 10 consecutive primes.

Original entry on oeis.org

129, 158, 192, 228, 264, 300, 340, 382, 424, 468, 510, 552, 594, 636, 682, 732, 780, 824, 870, 912, 954, 1008, 1060, 1114, 1164, 1216, 1266, 1320, 1376, 1434, 1494, 1546, 1596, 1650, 1704, 1752, 1800, 1854, 1914, 1974, 2030, 2084, 2142, 2192, 2250, 2310, 2374

Offset: 1

Artur Jasinski, Jan 11 2007

nonn

a(n) is the absolute value of coefficient of x^9 of the polynomial Product_{j=0..9} (x - prime(n+j)) of degree 10; the roots of this polynomial are prime(n), ..., prime(n+9).

Zak Seidov, Table of n, a(n) for n = 1..1000

Cf. A011974, A001043, A034961, A034963, A034964, A127333, A127334, A127335, A127336, A127338, A127339.

[&+[ NthPrime(n+k): k in [0..9] ]: n in [1..90] ]; // Vincenzo Librandi, Apr 03 2011

A127337 := proc(n)
    local i ;
    add(ithprime(n+i),i=0..9) ;
end proc:
seq(A127337(n),n=1..30) ; # R. J. Mathar, Apr 24 2023

a = {}; Do[AppendTo[a, Sum[Prime[x + n], {n, 0, 9}]], {x, 1, 50}]; a
Table[Plus@@Prime[Range[n, n + 9]], {n, 50}] (* Alonso del Arte, Feb 15 2011 *)
ListConvolve[ConstantArray[1, 10], Prime[Range[50]]]
Total/@Partition[Prime[Range[60]],10,1] (* Harvey P. Dale, Jan 31 2013 *)

{m=46;k=10;for(n=1,m,print1(a=sum(j=0,k-1,prime(n+j)),","))} \\ Klaus Brockhaus, Jan 13 2007

{m=46;k=10;for(n=1,m,print1(abs(polcoeff(prod(j=0,k-1,(x-prime(n+j))),k-1)),","))} \\ Klaus Brockhaus, Jan 13 2007

from sympy import prime
def a(n): return sum(prime(n + i) for i in range(10))
print([a(n) for n in range(1, 48)]) # Michael S. Branicky, Dec 09 2021

# faster version for generating initial segment of sequence
from sympy import nextprime
def aupton(terms):
    alst, plst = [], [2, 3, 5, 7, 11, 13, 17, 19, 23, 29]
    for n in range(terms):
        alst.append(sum(plst))
        plst = plst[1:] + [nextprime(plst[-1])]
    return alst
print(aupton(47)) # Michael S. Branicky, Dec 09 2021

a(n) = A127336(n)+A000040(n+9). - R. J. Mathar, Apr 24 2023

Edited by Klaus Brockhaus, Jan 13 2007

A127333 Numbers that are the sum of 6 consecutive primes.

Original entry on oeis.org

41, 56, 72, 90, 112, 132, 156, 180, 204, 228, 252, 280, 304, 330, 358, 384, 410, 434, 462, 492, 522, 552, 580, 606, 630, 660, 690, 724, 756, 796, 834, 864, 896, 926, 960, 990, 1020, 1054, 1084, 1114, 1140, 1172, 1214, 1250, 1286, 1322, 1362, 1392, 1420

Offset: 1

Artur Jasinski, Jan 11 2007

nonn

a(n) is the absolute value of coefficient of x^5 of the polynomial Prod_{j=0,5}(x-prime(n+j)) of degree 6; the zeros of this polynomial are prime(n), ..., prime(n+5).

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A011974, A001043, A034961, A034963, A034964, A127334, A127335, A127336, A127337, A127338, A127339.

[&+[ NthPrime(n+k): k in [0..5] ]: n in [1..80] ]; /* Vincenzo Librandi, Apr 03 2011 */

a = {}; Do[AppendTo[a, Sum[Prime[x + n], {n, 0, 5}]], {x, 1, 50}]; a
Total/@Partition[Prime[Range[60]],6,1] (* Harvey P. Dale, Mar 12 2015 *)

{m=50;k=6;for(n=0,m-1,print1(a=sum(j=1,k,prime(n+j)),","))} \\ Klaus Brockhaus, Jan 12 2007

{m=50;k=6;for(n=1,m,print1(abs(polcoeff(prod(j=0,k-1,(x-prime(n+j))),k-1)),","))} \\ Klaus Brockhaus, Jan 12 2007

Edited by Klaus Brockhaus, Jan 12 2007

A127336 Numbers that are the sum of 9 consecutive primes.

Original entry on oeis.org

100, 127, 155, 187, 221, 253, 287, 323, 363, 401, 439, 479, 515, 553, 593, 635, 679, 721, 763, 803, 841, 881, 929, 977, 1025, 1067, 1115, 1163, 1213, 1267, 1321, 1367, 1415, 1459, 1511, 1555, 1601, 1643, 1691, 1747, 1801, 1851, 1903, 1951, 1999, 2053

Offset: 1

Artur Jasinski, Jan 11 2007

a(n) = absolute value of coefficient of x^8 of the polynomial Product_{j=0..8}(x - prime(n+j)) of degree 9; the roots of this polynomial are prime(n), ..., prime(n+8).

Cf. A011974, A001043, A034961, A034963, A034964, A127333, A127334, A127335, A127337, A127338, A127339, A082251, A228200.

[&+[ NthPrime(n+k): k in [0..8] ]: n in [1..100] ]; // Vincenzo Librandi, Apr 03 2011

A127336 = {}; Do[AppendTo[A127336, Sum[Prime[x + n], {n, 0, 8}]], {x, 1, 50}]; A127336 (* Artur Jasinski, Jan 11 2007 *)
Table[Plus@@Prime[Range[n, n + 8]], {n, 50}] (* Alonso del Arte, Aug 27 2013 *)
Total/@Partition[Prime[Range[60]],9,1] (* Harvey P. Dale, Nov 18 2020 *)

{m=46;k=9;for(n=1,m,print1(a=sum(j=0,k-1,prime(n+j)),","))} \\ Klaus Brockhaus, Jan 13 2007
{m=46;k=9;for(n=1,m,print1(abs(polcoeff(prod(j=0,k-1,(x-prime(n+j))),k-1)),","))} \\ Klaus Brockhaus, Jan 13 2007

from sympy import prime
def a(x): return sum([prime(x + n) for n in range(9)])
print([a(i) for i in range(1, 50)]) # Indranil Ghosh, Mar 18 2017

a(n) = A127335(n)+A000040(n+8). - R. J. Mathar, Apr 24 2023

Edited by Klaus Brockhaus, Jan 13 2007

A127338 Numbers that are the sum of 11 consecutive primes.

Original entry on oeis.org

160, 195, 233, 271, 311, 353, 399, 443, 491, 539, 583, 631, 677, 725, 779, 833, 883, 931, 979, 1025, 1081, 1139, 1197, 1253, 1313, 1367, 1423, 1483, 1543, 1607, 1673, 1727, 1787, 1843, 1901, 1951, 2011, 2077, 2141, 2203, 2263, 2323, 2383, 2443, 2507

Offset: 1

Artur Jasinski, Jan 11 2007

nonn

a(n) = absolute value of coefficient of x^10 of the polynomial Product_{j=0..10} (x - prime(n+j)) of degree 11; the roots of this polynomial are prime(n), ..., prime(n+10).

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Cf. A011974, A001043, A034961, A034963, A034964, A127333, A127334, A127335, A127336, A127337, A127339, A127340.

[&+[ NthPrime(n+k): k in [0..10] ]: n in [1..70] ]; // Vincenzo Librandi, Apr 03 2011

f[n_] := Sum[Prime[n + i], {i, 0, 10}]; Array[f, 45]
Plus @@@ Partition[ Prime@ Range@ 55, 11, 1] (* Robert G. Wilson v, Jan 13 2011 *)

{m=45;k=11;for(n=1,m,print1(a=sum(j=0,k-1,prime(n+j)),","))} \\ Klaus Brockhaus, Jan 13 2007

{m=45;k=11;for(n=1,m,print1(abs(polcoeff(prod(j=0,k-1,(x-prime(n+j))),k-1)),","))} \\ Klaus Brockhaus, Jan 13 2007

Edited by Klaus Brockhaus, Jan 13 2007

A127334 Numbers that are the sum of 7 consecutive primes.

Original entry on oeis.org

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

Offset: 1

Artur Jasinski, Jan 11 2007

nonn

a(n) = absolute value of coefficient of x^6 of the polynomial Product_{j=0..6} (x - prime(n+j)) of degree 7; the roots of this polynomial are prime(n), ..., prime(n+6).

Muniru A Asiru, Table of n, a(n) for n = 1..1000

Cf. A001043, A011974, A034961, A034963, A034964, A082246, A127333, A127335, A127336, A127337, A127338, A127339.

P:=Filtered([1..1000],IsPrime);; List([0..50],n->Sum([1+n..7+n],i->P[i])); # Muniru A Asiru, Apr 16 2018

[&+[ NthPrime(n+k): k in [0..6] ]: n in [1..70] ]; // Vincenzo Librandi, Apr 03 2011

seq(add(ithprime(i),i=n..6+n),n=1..50); # Muniru A Asiru, Apr 16 2018

a = {}; Do[AppendTo[a, Sum[Prime[x + n], {n, 0, 6}]], {x, 1, 50}]; a
Total/@Partition[Prime[Range[60]],7,1] (* Harvey P. Dale, May 14 2023 *)

{m=48;k=7;for(n=0,m-1,print1(a=sum(j=1,k,prime(n+j)),","))} \\ Klaus Brockhaus, Jan 13 2007

{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

from sympy import prime
def a(x): return sum(prime(x + n) for n in range(7))
print([a(i) for i in range(1, 50)]) # Indranil Ghosh, Mar 18 2017

BB = primes_first_n(62)
L = []
for i in range(55):
    L.append(sum(BB[i+j] for j in range(7)))
L
# Zerinvary Lajos, May 14 2007

Edited by Klaus Brockhaus, Jan 13 2007

A127339 Numbers that are the sum of 12 consecutive primes.

Original entry on oeis.org

197, 236, 276, 318, 364, 412, 460, 510, 562, 612, 662, 714, 766, 822, 880, 936, 990, 1040, 1092, 1152, 1212, 1276, 1336, 1402, 1464, 1524, 1586, 1650, 1716, 1786, 1854, 1918, 1980, 2040, 2100, 2162, 2234, 2304, 2370, 2436, 2502, 2564, 2634, 2700, 2770

Offset: 1

Artur Jasinski, Jan 11 2007

nonn

a(n) = absolute value of coefficient of x^11 of the polynomial Product_{j=0..11} (x - prime(n+j)) of degree 12; the roots of this polynomial are prime(n), ..., prime(n+11).

Cf. A011974, A001043, A034961, A034963, A034964, A127333, A127334, A127335, A127336, A127337, A127338.

[&+[ NthPrime(n+k): k in [0..11] ]: n in [1..100] ]; // Vincenzo Librandi, Apr 03 2011

a = {}; Do[AppendTo[a, Sum[Prime[x + n], {n, 0, 11}]], {x, 1, 50}]; a
Total/@Partition[Prime[Range[60]],12,1] (* Harvey P. Dale, May 05 2018 *)

{m=45;k=12;for(n=1,m,print1(a=sum(j=0,k-1,prime(n+j)),","))} \\ Klaus Brockhaus, Jan 13 2007

{m=45;k=12;for(n=1,m,print1(abs(polcoeff(prod(j=0,k-1,(x-prime(n+j))),k-1)),","))} \\ Klaus Brockhaus, Jan 13 2007

Edited by Klaus Brockhaus, Jan 13 2007

A127492 Indices m of primes such that Sum_{k=0..2, k

Original entry on oeis.org

2, 10, 17, 49, 71, 72, 75, 145, 161, 167, 170, 184, 244, 250, 257, 266, 267, 282, 286, 301, 307, 325, 343, 391, 405, 429, 450, 537, 556, 561, 584, 685, 710, 743, 790, 835, 861, 904, 928, 953

Offset: 1

Artur Jasinski, Jan 16 2007

Let p_0 .. p_4 be five consecutive primes, starting with the m-th prime. The index m is in the sequence if the absolute value [x^0] of the polynomial (x-p_0)*[(x-p_1)*(x-p_2) + (x-p_2)*(x-p_3) + (x-p_3)*(x-p_4)] + (x-p_1)*[(x-p_2)*(x-p_3) + (x-p_3)*(x-p_4)] + (x-p_2)*(x-p_3)*(x-p_4) is two times a prime. The correspondence with A127491: the coefficient [x^2] of the polynomial (x-p_0)*(x-p_1)*..*(x-p_4) is the sum of 10 products of a set of 3 out of the 5 primes. Here the sum is restricted to the 6 products where the two largest of the 3 primes are consecutive. - R. J. Mathar, Apr 23 2023

Harvey P. Dale, Table of n, a(n) for n = 2..1000

Cf. A001043, A034961, A034963, A034964, A127333, A127334, A127335, A127336, A127337, A127338, A127339, A127340, A127341, A127342, A127343, A127345, A127346, A127347, A127348, A127349, A127351, A037171, A034962, A034965, A082246, A082251, A070934, A006094, A046301, A046302, A046303, A046324, A046325, A046326, A046327, A127489, A127490, A127491.

isA127492 := proc(k)
    local x,j ;
    (x-ithprime(k))* mul( x-ithprime(k+j),j=1..2)
    +(x-ithprime(k))* mul( x-ithprime(k+j),j=2..3)
    +(x-ithprime(k))* mul( x-ithprime(k+j),j=3..4)
    +(x-ithprime(k+1))* mul( x-ithprime(k+j),j=2..3)
    +(x-ithprime(k+1))* mul( x-ithprime(k+j),j=3..4)
    +(x-ithprime(k+2))* mul( x-ithprime(k+j),j=3..4) ;
    p := abs(coeff(expand(%/2),x,0)) ;
    if type(p,'integer') then
        isprime(p) ;
    else
        false ;
    end if ;
end proc:
for k from 1 to 900 do
    if isA127492(k) then
        printf("%a,",k) ;
    end if ;
end do: # R. J. Mathar, Apr 23 2023

a = {}; Do[If[PrimeQ[(Prime[x] Prime[x + 1]Prime[x + 2] + Prime[x] Prime[x + 2]Prime[x + 3] + Prime[x] Prime[x + 3] Prime[x + 4] + Prime[x + 1] Prime[x + 2]Prime[x + 3] + Prime[x + 1] Prime[x + 3]Prime[x + 4] + Prime[x + 2] Prime[x + 3] Prime[x + 4])/2], AppendTo[a, x]], {x, 1, 1000}]; a
prQ[{a_,b_,c_,d_,e_}]:=PrimeQ[(a b c+a c d+a d e+b c d+b d e+c d e)/2]; PrimePi/@Select[ Partition[ Prime[Range[1000]],5,1],prQ][[;;,1]] (* Harvey P. Dale, Apr 21 2023 *)

Definition simplified by R. J. Mathar, Apr 23 2023

Edited by Jon E. Schoenfield, Jul 23 2023

A147850 Parity of the digits sum of Sum_{j = 8n-7..8n} prime(j).

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0

Offset: 1

E.J.P. Vening, Nov 15 2008

			2+3+5+7+11+13+17+19 = 1384614 (1+3+8+4+6+1+4) = 27 (1).
23+29+31+37+41+43+47+53 = 5466528 (5+4+6+6+5+2+8) = 36 (0).
461+463+467+479+487+491+499+503 = 69230700 (6+9+2+3+7) = 27 (1).
509+521+523+541+547+557+563+569 = 77862060 (7+7+8+6+2+6) = 36 (0).

Cf. A147781.

A127335 := proc(n) add(ithprime(i),i=n..n+7) ; end:
A007953 := proc(n) add(i,i=convert(n,base,10)) ; end:
A147850 := proc(n) A007953(17982*A127335(8*n-7)) mod 2 ; end:
for n from 1 to 200 do printf("%a,",A147850(n)) ; od: # R. J. Mathar, Jan 06 2009

a(n) = 1 - A147781(n).

a(n) = A007953(17982*A127335(8*n-7)) mod 2. - R. J. Mathar, Jan 06 2009

More terms from R. J. Mathar, Jan 06 2009

A283873 Smallest number that is the sum of n successive primes and also the sum of n successive semiprimes, n > 1.

Original entry on oeis.org

24, 749, 48, 311, 690, 251, 2706, 2773, 6504, 1081, 2162, 1753, 11356, 6223, 1392, 2303, 9838, 637, 14510, 1995, 3154, 21459, 72960, 5691, 8140, 1475, 2350, 3647, 1593, 7607, 55074, 2719, 9852, 12143, 106562, 12615, 9036, 19883, 15438, 28369, 8560, 8415, 3831

Offset: 2

Zak Seidov, Mar 17 2017

nonn

The sequence is non-monotone.

			a(2) = 24 = A000040(5) + A000040(6) = 11 + 13 = A001358(4) + A001358(5) = 10 + 14,
a(3) = 749 = A000040(53) + A000040(54) + A000040(55) = 241 + 251 + 257 = A001358(79) + A001358(80) + A001358(81) = 247 + 249 + 253.

Alois P. Heinz, Table of n, a(n) for n = 2..1000

Cf. A000040 Primes, A001358 Semiprimes, A118717 Sum of two consecutive semiprimes.

Sum of k consecutive primes: A001043 k=2, A034961 k=3, A034963 k=4, A034964 k=5, A127333 k=6, A127334 k=7, A127335 k=8, A127336 k=9, A127337 k=10, A127338 k=11, A127339 k=12.

issp:= n-> is(not isprime(n) and numtheory[bigomega](n)=2):
ithsp:= proc(n) option remember; local k; for k from 1+
        `if`(n=1, 1, ithsp(n-1)) while not issp(k) do od; k
        end:
ps:= proc(i, j) option remember;
       ithprime(j)+`if`(i=j, 0, ps(i, j-1))
     end:
ss:= proc(i, j) option remember;
       ithsp(j)+`if`(i=j, 0, ss(i, j-1))
     end:
a:= proc(n) option remember; local i, j, k, l, p, s;
      i, j, k, l, p, s:= 1, n, 1, n, ps(1, n), ss(1, n);
      do if p=s then return p
       elif pAlois P. Heinz, Mar 24 2017

Mathematica

sp=Select[Range[4,100000],2==PrimeOmega[#]&];pr=Prime[Range[PrimePi[Max[sp]]]]; Table[Intersection[(Total/@Partition[pr,k,1]),Total/@Partition[sp,k,1]][[1]],{k,2,100}]

Extensions

More terms from Alois P. Heinz, Mar 24 2017

cp's OEIS Frontend

A152010 Sum of digits of A127335(n).

Views

Author

Keywords

Programs

Mathematica

Formula

A127337 Numbers that are the sum of 10 consecutive primes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

PARI

Python

Python

Formula

Extensions

A127333 Numbers that are the sum of 6 consecutive primes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

PARI

Extensions

A127336 Numbers that are the sum of 9 consecutive primes.

Views

Author

Keywords

Comments

Crossrefs

Programs

Magma

Mathematica

PARI

Python

Formula

Extensions

A127338 Numbers that are the sum of 11 consecutive primes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

PARI

Extensions

A127334 Numbers that are the sum of 7 consecutive primes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

PARI

Python

Sage

A147850 Parity of the digits sum of Sum_{j = 8n-7..8n} prime(j).