A118236 Numbers that can be written as sums of at least two distinct but overlapping sets of consecutive numbers.
9, 15, 18, 21, 30, 35, 42, 45, 50, 55, 60, 63, 65, 70, 75, 77, 81, 84, 90, 91, 99, 105, 108, 117, 119, 126, 132, 133, 135, 140, 143, 147, 150, 153, 154, 156, 162, 165, 171, 175, 180, 187, 189, 195, 196, 198, 207, 209, 210, 216, 220, 221, 225, 231, 234, 245, 247
Offset: 1
Keywords
Examples
30 = 4+5+(6+7+8) = (6+7+8)+9 with common summands = {6,7,8}, therefore 30 is a term.
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A328369.
Programs
-
Mathematica
Position[#, ?(# > 0 &)][[All, 1]] &@ Array[Count[Tally@ Flatten@ Select[IntegerPartitions[#], Union@ Differences@ # == {-1} &], ?(Last@ # > 1 &)] &, 60] (* Michael De Vlieger, Nov 22 2019 *)
Comments