cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A118236 Numbers that can be written as sums of at least two distinct but overlapping sets of consecutive numbers.

This page as a plain text file.
%I A118236 #11 Nov 22 2019 12:42:17
%S A118236 9,15,18,21,30,35,42,45,50,55,60,63,65,70,75,77,81,84,90,91,99,105,
%T A118236 108,117,119,126,132,133,135,140,143,147,150,153,154,156,162,165,171,
%U A118236 175,180,187,189,195,196,198,207,209,210,216,220,221,225,231,234,245,247
%N A118236 Numbers that can be written as sums of at least two distinct but overlapping sets of consecutive numbers.
%C A118236 A001227(a(n)) > 2.
%C A118236 Complement of A328369. - _Omar E. Pol_, Nov 19 2019
%H A118236 Alois P. Heinz, <a href="/A118236/b118236.txt">Table of n, a(n) for n = 1..10000</a>
%e A118236 30 = 4+5+(6+7+8) = (6+7+8)+9 with common summands = {6,7,8}, therefore 30 is a term.
%t A118236 Position[#, _?(# > 0 &)][[All, 1]] &@ Array[Count[Tally@ Flatten@ Select[IntegerPartitions[#], Union@ Differences@ # == {-1} &], _?(Last@ # > 1 &)] &, 60] (* _Michael De Vlieger_, Nov 22 2019 *)
%Y A118236 Cf. A328369.
%K A118236 nonn
%O A118236 1,1
%A A118236 _Reinhard Zumkeller_, Apr 18 2006