OFFSET
0,1
MATHEMATICA
a[n_] := Length @ Union[Total /@ Subsets[Table[Binomial[n, k], {k, 0, n}]]]; Array[a, 10, 0] (* Amiram Eldar, Jan 11 2019 *)
PROG
(PARI) padbin(k, n) = my(p = Pol(binary(k))); vector(n, k, polcoeff(p, k-1));
thebins(n) = vector(2^n, k, padbin(k-1, n));
a(n) = my(vv = thebins(n+1)); #Set(vector(#vv, k, sum(i=0, n, vv[k][i+1]*binomial(n, i)))); \\ Michel Marcus, Jan 11 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
R. H. Hardin, Jan 28 2012
EXTENSIONS
Value range in title corrected and a(29)-a(31) added by Aaron Meyerowitz, Jun 13 2014
a(32)-a(37) from Bert Dobbelaere, Sep 15 2019
STATUS
approved