OFFSET
1,1
COMMENTS
Composite numbers that are sum of two and three consecutive composite numbers. Provably only odd integers.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
49=24+25=15+16+18
99=49+50=32+33+34
153=76+77=50+51+52.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 17 2009
STATUS
approved