|
%I #25 Sep 22 2016 11:04:33
%S 1,1,7,155,11811,3309747,3548836819,14877590196755,246614610741341843,
%T 16256896431763117598611,4274137206973266943778085267,
%U 4488323837657412597958687922896275,18839183877670041942218307147122500601235
%N Gaussian binomial coefficient [2*n-1,n] for q=2, n>=0.
%C Compare to: [x^n] Product_{k=0..n-1} 1+2^k*x = 2^(n*(n-1)/2).
%H G. C. Greubel, <a href="/A218449/b218449.txt">Table of n, a(n) for n = 0..50</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/q-BinomialCoefficient.html">q-Binomial Coefficient</a>.
%F a(n) = [x^n] Product_{k=0..n-1} 1/(1 - 2^k*x).
%F a(n) ~ c * 2^(n*(n-1)), where c = A065446. - _Vaclav Kotesovec_, Sep 22 2016
%e The coefficients in Product_{k=0..n-1} 1/(1 - 2^k*x) begin:
%e n=0: [(1)];
%e n=1: [1,(1), 1, 1, 1, 1, 1, 1, 1, 1, ...];
%e n=2: [1, 3,(7), 15, 31, 63, 127, 255, 511, 1023, ...];
%e n=3: [1, 7, 35,(155), 651, 2667, 10795, 43435, 174251, ...];
%e n=4: [1, 15, 155, 1395,(11811), 97155, 788035, 6347715, ...];
%e n=5: [1, 31, 651, 11811, 200787,(3309747), 53743987, ...];
%e n=6: [1, 63, 2667, 97155, 3309747, 109221651,(3548836819), ...];
%e n=7: [1, 127, 10795, 788035, 53743987, 3548836819, 230674393235,(14877590196755), ...]; ...
%e the coefficients in parenthesis give the initial terms of this sequence;
%e an adjacent diagonal forms the Gaussian binomial coefficients [2*n,n] for q=2:
%e [1, 3, 35, 1395, 200787, 109221651, 230674393235, ...] = A006098.
%t Table[QBinomial[2n-1, n, 2], {n, 0, 20}] (* _Vladimir Reshetnikov_, Sep 12 2016 *)
%o (PARI) {a(n)=polcoeff(prod(k=0,n-1,1/(1-2^k*x +x*O(x^n))),n)}
%o for(n=0,20,print1(a(n),", "))
%Y Cf. A022166, A006098, A006125.
%K nonn
%O 0,3
%A _Paul D. Hanna_, Oct 28 2012
|
