login
A151742
Composite numbers which are the sum of four consecutive composite numbers.
4
27, 33, 39, 45, 51, 57, 63, 69, 75, 81, 87, 92, 102, 106, 111, 117, 123, 129, 134, 138, 143, 148, 153, 159, 165, 171, 177, 183, 188, 198, 202, 207, 212, 217, 222, 226, 231, 237, 243, 249, 254, 258, 268, 273, 279, 285, 291, 297, 302
OFFSET
1,1
LINKS
MATHEMATICA
Select[Total/@Partition[Select[Range[100], CompositeQ], 4, 1], CompositeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 21 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Claudio Meller, Jun 15 2009
EXTENSIONS
Definition clarified by Harvey P. Dale, Apr 21 2020
STATUS
approved