%I #15 Aug 17 2020 22:13:32
%S 405,1395,3435,3525,4245,4365,6675,6885,7155,7515,7995,8325,8445,9075,
%T 10365,10845,11205,11543,13005,14235,14325,18075,19725,19875,22605,
%U 23257,23475,23617,26805,27315,29835,29955,31035,32355,32925,33165,34395
%N Composites that are the sum of two, three, four and five consecutive composite numbers.
%H Robert Israel, <a href="/A151745/b151745.txt">Table of n, a(n) for n = 1..6214</a>
%F Intersection of A151740, A151741, A151742 and A151743. - _R. J. Mathar_, Jun 17 2009
%e 405 is in the list because it is composite and
%e 405 = 202 + 203 (Sum of two consecutive composite numbers)
%e 405 = 134 + 135 + 136 (Sum of three consecutive composite numbers)
%e 405 = 99 + 100 + 102 + 104 (Sum of four consecutive composite numbers)
%e 405 = 78 + 80 + 81 + 82 + 84 (Sum of five consecutive composite numbers).
%p N:= 10^5: # for terms <= N
%p Comps:= remove(isprime, [$2..N]):
%p PSComps:= [0,op(ListTools:-PartialSums(Comps))]:
%p C2:= convert(PSComps[3..-1]-PSComps[1..-3],set):
%p C3:= convert(PSComps[4..-1]-PSComps[1..-4],set):
%p C4:= convert(PSComps[5..-1]-PSComps[1..-5],set):
%p C5:= convert(PSComps[6..-1]-PSComps[1..-6],set):
%p R:= convert(Comps,set) intersect C2 intersect C3 intersect C4 intersect C5:
%p sort(convert(R,list)); # _Robert Israel_, Aug 17 2020
%t CompositeNext[n_]:=Module[{k=n+1},While[PrimeQ[k],k++ ];k]; q=8!; lst2={};Do[If[ !PrimeQ[n],c=CompositeNext[n];a2=n+c;If[ !PrimeQ[a2],AppendTo[lst2,a2]]],{n,q}];lst2; lst3={};Do[If[ !PrimeQ[n],c1=CompositeNext[n];c2=CompositeNext[c1];a3=n+c1+c2;If[ !PrimeQ[a3],AppendTo[lst3,a3]]],{n,q}];lst3; lst4={};Do[If[ !PrimeQ[n],c1=CompositeNext[n];c2=CompositeNext[c1];c3=CompositeNext[c2];a4=n+c1+c2+c3;If[ !PrimeQ[a4],AppendTo[lst4,a4]]],{n,q}];lst4; lst5={};Do[If[ !PrimeQ[n],c1=CompositeNext[n];c2=CompositeNext[c1];c3=CompositeNext[c2];c4=CompositeNext[c3];a5=n+c1+c2+c3+c4;If[ !PrimeQ[a5],AppendTo[lst5,a5]]],{n,q}];lst5; Intersection[lst2,lst3,lst4,lst5] (* _Vladimir Joseph Stephan Orlovsky_, Jun 17 2009 *)
%K nonn
%O 1,1
%A _Claudio Meller_, Jun 15 2009
%E Corrected and extended by _Harvey P. Dale_, Nov 25 2014
%E Corrected by _Robert Israel_, Aug 17 2020
|