A060332 -id:A060332 - cp's OEIS frontend

A060328 Primes which are the sum of three consecutive composite numbers.

23, 31, 41, 59, 67, 71, 109, 113, 131, 139, 157, 199, 211, 239, 251, 269, 293, 311, 337, 379, 383, 409, 419, 487, 491, 499, 503, 521, 571, 599, 631, 701, 751, 769, 773, 787, 829, 877, 881, 919, 941, 953, 991, 1009, 1013, 1039, 1049, 1061, 1103, 1117, 1151

Offset: 1

Robert G. Wilson v, Mar 30 2001

nonn

"Consecutive" necessarily means consecutive in the list of composite numbers as opposed to consecutive in the integers, as the sum of any 3 consecutive integers is a multiple of 3. - Peter Munn, Aug 20 2023

			a(3) = 41 is equal to 12+14+15.

Primes that are the sum of other numbers of consecutive composite numbers: A060254 (2), A060329 (4), A060330 (5), A060331 (6), A060332 (7), A060333 (8). See also A037174.
Cf. A034962.
Complement within A166039\{5, 11} of A151741.

composite[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1 != n, k++ ]; k); b = {}; Do[ p = composite[ n ] + composite[ n + 1 ] + composite[ n + 2 ]; If[ PrimeQ[ p ], b = Append[ b, p ] ], {n, 1, 1000} ]; b

A037174 Primes which are not the sum of consecutive composite numbers.

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 47, 61, 73, 107, 167, 179, 313, 347, 421, 479, 719, 863, 1153, 1213, 1283, 1307, 1523, 3467, 3733, 4007, 4621, 4787, 5087, 5113, 5413, 7523, 7703, 9817, 10333, 12347, 12539, 13381, 17027, 18553, 19717, 19813, 23399, 26003, 31873, 36097, 38833

Offset: 1

Naohiro Nomoto

nonn

It seems reasonable that a(n)/A079149(n) has an asymptote that could be estimated. - Peter Munn, Aug 21 2023

T. D. Noe, Table of n, a(n) for n = 1..3492 (terms less than 2*10^9)

Subsequence of A079149.
With {1}, the complement of A133576.
Primes that are the sum of specific numbers of consecutive composite numbers: A060254 (2), A060328 (3), A060329 (4), A060330 (5), A060331 (6), A060332 (7), A060333 (8).
Cf. A050940, A197227.

N:= 5000:
primes,comps:= selectremove(isprime,{$2..N}):
M:= nops(comps):
X:= primes:
for n from 1 to floor(sqrt(2*N)) do
i:= 1;
T:= add(comps[k],k=1..n);
while T <= N do
X := X minus {T};
if i + n > M then break fi;
T := T + comps[i+n] - comps[i];
i := i+1;
od;
od:
X;
# Robert Israel, Jun 24 2008

More terms from Jud McCranie, Jul 12 2000

Corrected by T. D. Noe, Aug 15 2008

A060333 Primes which are the sum of eight consecutive composite numbers.

Original entry on oeis.org

193, 277, 353, 433, 443, 613, 643, 653, 673, 683, 739, 881, 1109, 1129, 1237, 1511, 1531, 1609, 1619, 1697, 1873, 1999, 2017, 2027, 2113, 2207, 2239, 2281, 2371, 2447, 2621, 2657, 2677, 2687, 2749, 2801, 2833, 2843, 2909, 2927, 3023, 3083, 3121, 3167

Offset: 1

Robert G. Wilson v, Mar 30 2001

nonn

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A060254, A060328, A060329, A060330, A060331, A060332, A151738, A151739.

comps:= remove(isprime, [$4..1000]):
S:= add(comps[i+1..i-8],i=0..7):
select(isprime,S); # Robert Israel, Dec 12 2019

composite[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1 != n, k++ ]; k); a = {}; Do[ p = Sum[ composite[ n + k ], {k, 0, 7} ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 600} ]; a
Select[Total /@ Partition[ Select[ Range@ 500, CompositeQ], 8, 1], PrimeQ] (* Giovanni Resta, Dec 13 2019 *)

cp's OEIS Frontend

A060328 Primes which are the sum of three consecutive composite numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A037174 Primes which are not the sum of consecutive composite numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Extensions

A060333 Primes which are the sum of eight consecutive composite numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica