|
| |
|
|
A126111
|
|
Number of subsets of {1,2,3,...,n} whose sum is a cube.
|
|
0
| |
|
|
2, 2, 2, 3, 5, 6, 8, 15, 29, 48, 71, 112, 216, 445, 849, 1459, 2403, 4239, 8343, 17049, 33416, 61192, 107290, 190803, 361136, 722568, 1457638, 2847209, 5322619, 9679593, 17715193, 33626815, 66430582, 133432610, 264832126, 511136916
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 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.
|
|
|
MATHEMATICA
| 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] (*Chandler*)
|
|
|
CROSSREFS
| Cf. Number of subsets of {1, 2, 3, ..., n} whose sum is a square/prime in A126024, A127542.
Sequence in context: A035658 A077018 A007918 * A122789 A014208 A059690
Adjacent sequences: A126108 A126109 A126110 * A126112 A126113 A126114
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)gmail.com), Mar 05 2007
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Mar 07 2007
|
| |
|
|
