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.
%I A126111 #15 Oct 10 2019 14:02:47 %S A126111 2,2,2,3,5,6,8,15,29,48,71,112,216,445,849,1459,2403,4239,8343,17049, %T A126111 33416,61192,107290,190803,361136,722568,1457638,2847209,5322619, %U A126111 9679593,17715193,33626815,66430582,133432610,264832126,511136916,960634698,1786150886 %N A126111 Number of subsets of {1,2,3,...,n} whose sum is a cube. %H A126111 Alois P. Heinz, <a href="/A126111/b126111.txt">Table of n, a(n) for n = 1..300</a> %e A126111 There are five subsets of {1,2,3,4,5} that sum to a cube: {}, {1},{3,5}, {1,2,5} and {1,3,4}. Thus a(5)=5. %t A126111 g[n_] := Block[{p = Product[1 + z^i, {i, n}]},Sum[Boole[IntegerQ[k^(1/3)]]*Coefficient[p, z, k], {k, 0, n*(n + 1)/2}]];Array[g, 37] (* _Ray Chandler_, Mar 07 2007 *) %Y A126111 Cf. number of subsets of {1,2,3,...,n} whose sum is a square/prime in A126024, A127542. %K A126111 nonn %O A126111 1,1 %A A126111 _Zak Seidov_, Mar 05 2007 %E A126111 Extended by _Ray Chandler_, Mar 07 2007 %E A126111 More terms from _Alois P. Heinz_, Jan 18 2014