A205536 - OEIS

%I #36 Sep 15 2019 15:13:42

%S 2,3,5,9,15,21,45,57,117,243,395,465,879,1053,2039,5949,10325,11739,

%T 21345,22005,64917,132167,187681,252531,775059,1215147,2126091,

%U 3883077,6003423,8207583,19058065,21162879,46406677,70113033,100115753,280588533,699418771,838568259

%N Number of distinct values of Sum_{i=0..n} x(i)*binomial(n,i), where the x(i) is a vector of length n+1 that runs through all combinations of {0, 1}.

%t a[n_] := Length @ Union[Total /@ Subsets[Table[Binomial[n, k], {k, 0, n}]]]; Array[a, 10, 0] (* _Amiram Eldar_, Jan 11 2019 *)

%o (PARI) padbin(k, n) = my(p = Pol(binary(k))); vector(n, k, polcoeff(p, k-1));

%o thebins(n) = vector(2^n, k, padbin(k-1, n));

%o 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

%Y Cf. A007318, A205537, A205538, A205539, A205540, A205541.

%Y Column 1 of A205542.

%K nonn

%O 0,1

%A _R. H. Hardin_, Jan 28 2012

%E Value range in title corrected and a(29)-a(31) added by _Aaron Meyerowitz_, Jun 13 2014

%E a(32)-a(37) from _Bert Dobbelaere_, Sep 15 2019