A151742 Composite numbers which are the sum of four consecutive composite numbers.
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
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Total/@Partition[Select[Range[100],CompositeQ],4,1],CompositeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 21 2020 *)
Extensions
Definition clarified by Harvey P. Dale, Apr 21 2020