cp's OEIS Frontend

A201950 Central coefficients in Product_{k=0..n-1} (1 + k*x + x^2).

%I A201950 #33 May 04 2024 07:06:07
%S A201950 1,0,2,6,28,160,1078,8358,73260,716112,7721844,91039740,1164932470,
%T A201950 16077368580,238037983558,3763371442530,63276351409092,
%U A201950 1127406030014112,21218146474666864,420611921077524912,8759617763834095796,191208185756772875880
%N A201950 Central coefficients in Product_{k=0..n-1} (1 + k*x + x^2).
%H A201950 Vaclav Kotesovec, <a href="/A201950/b201950.txt">Table of n, a(n) for n = 0..300</a>
%F A201950 Central terms of rows in irregular triangle A201949.
%F A201950 a(n) = (n-1)*a(n-1) + 2*A201952(n-1) for n>0. [corrected by _Vaclav Kotesovec_, May 04 2024]
%F A201950 E.g.f.: BesselI(0, 2*log(1 - x)). - _Ilya Gutkovskiy_, Feb 22 2019
%F A201950 E.g.f.: Sum_{n>=0} log(1 - x)^(2*n) / n!^2. [After _Ilya Gutkovskiy_ - _Paul D. Hanna_, Feb 24 2019]
%e A201950 The coefficients in Product_{k=0..n-1} (1+k*x+x^2) form triangle A201949:
%e A201950 (1);
%e A201950 1,(0), 1;
%e A201950 1, 1,(2), 1, 1;
%e A201950 1, 3, 5, (6), 5, 3, 1;
%e A201950 1, 6, 15, 24, (28), 24, 15, 6, 1;
%e A201950 1, 10, 40, 90, 139, (160), 139, 90, 40, 10, 1;
%e A201950 1, 15, 91, 300, 629, 945, (1078), 945, 629, 300, 91, 15, 1;
%e A201950 1, 21, 182, 861, 2520, 5019, 7377, (8358), 7377, 5019, 2520, 861, 182, 21, 1;
%e A201950 1, 28, 330, 2156, 8729, 23520, 45030, 65016, (73260), 65016, 45030, 23520, 8729, 2156, 330, 28, 1; ...
%e A201950 where coefficients in parenthesis form the initial terms of this sequence.
%t A201950 Flatten[{1,Table[Coefficient[Expand[Product[1 + k*x + x^2,{k,0,n-1}]],x^n],{n,1,20}]}] (* _Vaclav Kotesovec_, Feb 10 2015 *)
%o A201950 (PARI) {a(n) = polcoeff( prod(k=1,n,1+(k-1)*x+x^2+x*O(x^n)), n)}
%o A201950 for(n=0,30, print1(a(n),", "))
%o A201950 (PARI) /* From series BesselI(0, 2*log(1 - x)), after _Ilya Gutkovskiy_ */
%o A201950 {a(n) = n!*polcoeff( sum(m=0,n, log(1 - x +x*O(x^n))^(2*m)/m!^2), n)}
%o A201950 for(n=0,30, print1(a(n),", ")) \\ _Paul D. Hanna_, Feb 24 2019
%Y A201950 Cf. A201949, A201951, A201952, A201953.
%Y A201950 Cf. A086672, A324304 (variant).
%K A201950 nonn
%O A201950 0,3
%A A201950 _Paul D. Hanna_, Dec 06 2011