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.

A126111 Number of subsets of {1,2,3,...,n} whose sum is a cube.

This page as a plain text file.
%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