|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|