cp's OEIS Frontend

A139158 Triangle a(n,k) of the expansion coefficients of the Hermite polynomial 2*H(n/2,x) if n even, of H((n-1)/2,x)+H((n+1)/2,x) if n odd.

%I A139158 #4 Mar 30 2012 17:34:26
%S A139158 2,1,2,0,4,-2,2,4,-4,0,8,-2,-12,4,8,0,-24,0,16,12,-12,-48,8,16,24,0,
%T A139158 -96,0,32,12,120,-48,-160,16,32,0,240,0,-320,0,64,-120,120,720,-160,
%U A139158 -480,32,64,-240,0,1440,0,-960,0,128,-120,-1680,720,3360,-480,-1344,64,128,0,-3360,0,6720,0,-2688
%N A139158 Triangle a(n,k) of the expansion coefficients of the Hermite polynomial 2*H(n/2,x) if n even, of H((n-1)/2,x)+H((n+1)/2,x) if n odd.
%C A139158 Coefficients are ordered along increasing exponents [x^k], k=0,...,floor((n+1)/2).
%C A139158 Row sums are 2, 3, 4, 4, 4, -2, -8, -24, -40, -28, -16,..
%F A139158 a(2*n,k) = 2* A060821(n,k). a(2*n-1,k) = A060821(n-1,k)+A060821(n,k) .
%F A139158 sum_{k=0..n} a(2*n,k) = 2*A062267(n).
%F A139158 sum_{k=0..n} a(2*n-1,k) = A062267(n) + A062267(n-1).
%e A139158 {2}, = 2
%e A139158 {1, 2}, = 1+2x
%e A139158 {0, 4}, = 4x^2
%e A139158 {-2, 2, 4}, = -2+2x+4x^2
%e A139158 {-4, 0, 8}, = -4+8x^2
%e A139158 {-2, -12, 4, 8},
%e A139158 {0, -24, 0, 16},
%e A139158 {12, -12, -48, 8, 16},
%e A139158 {24, 0, -96, 0, 32},
%e A139158 {12, 120, -48, -160, 16, 32},
%e A139158 {0, 240, 0, -320, 0, 64}.
%p A139158 A060821 := proc(n,k) orthopoly[H](n,x) ; coeftayl(%,x=0,k) ; end:
%p A139158 A139158 := proc(n,k) if type(n,'even') then 2*A060821(n/2,k) ; else A060821((n+1)/2-1,k)+A060821((n+1)/2,k) ; fi; end: seq( seq(A139158(n,k),k=0..(n+1)/2),n=0..15) ;
%t A139158 Clear[p, x] p[x, 0] = 2*HermiteH[0, x]; p[x, 1] = HermiteH[0, x] + HermiteH[1, x]; p[x, 2] = 2*HermiteH[1, x]; p[x_, m_] := p[x, m] = If[Mod[m, 2] == 0, 2*HermiteH[Floor[m/2], x], HermiteH[ Floor[m/2], x] + HermiteH[Floor[m/ 2 + 1], x]];
%t A139158 Table[ExpandAll[p[x, n]], {n, 0, 10}]; a = Table[CoefficientList[p[x, n], x], {n, 0, 10}];
%t A139158 Flatten[a] Table[Apply[Plus, CoefficientList[p[x, n], x]], {n, 0, 10}]
%Y A139158 Cf. A060821.
%K A139158 sign,tabf
%O A139158 0,1
%A A139158 _Roger L. Bagula_, Jun 05 2008
%E A139158 Edited by the Associate Editors of the OEIS, Aug 28 2009