%I #6 Nov 27 2019 13:29:33
%S 49,99,153,161,171,175,185,189,221,231,235,243,247,265,285,289,319,
%T 329,341,351,369,375,391,405,429,435,441,469,473,495,507,517,531,535,
%U 545,549,581,589,603,609,639,645,651,657,667,671,679,689,711,715,725,729
%N Intersection of A151740 and A151741.
%C Composite numbers that are sum of two and three consecutive composite numbers. Provably only odd integers.
%H Harvey P. Dale, <a href="/A161689/b161689.txt">Table of n, a(n) for n = 1..1000</a>
%e 49=24+25=15+16+18
%e 99=49+50=32+33+34
%e 153=76+77=50+51+52.
%t Module[{c=Select[Range[800],CompositeQ],s2,s3},s2=Total/@Partition[c,2,1];s3=Total/@Partition[c,3,1];Intersection[c,s2,s3]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 27 2019 *)
%Y A151740, A151741, A151745.
%K nonn
%O 1,1
%A _Zak Seidov_, Jun 17 2009