%I #2 Mar 30 2012 17:34:34
%S 1,0,1,1,0,1,0,7,0,1,28,0,35,0,1,0,868,0,155,0,1,13888,0,18228,0,651,
%T 0,1,0,1763776,0,330708,0,2667,0,1,112881664,0,149920960,0,5622036,0,
%U 10795,0,1,0,57682530304,0,10944230080,0,92672916,0,43435,0,1
%N q-Carlitz-Al-Salam-Appell polynomial coefficients:q=2; p(x,n)=x*p[x, n - 1] - (1 - q^(n - 1))*q^(n - 2)*p[x, n - 2].
%C Row sums are:
%C {1, 1, 2, 8, 64, 1024, 32768, 2097152, 268435456, 68719476736, 35184372088832,...}.
%D T Ernst,The different tongues of q - calculus,Proceedings of the Estonian Academy of Sciences, 2008 - kirj.ee, 2-81-99,pp.14-15
%F q=2; p(x,n)=x*p[x, n - 1] - (1 - q^(n - 1))*q^(n - 2)*p[x, n - 2];
%F t(n,m)=coefficients(p(x,n)).
%e {1},
%e {0, 1},
%e {1, 0, 1},
%e {0, 7, 0, 1},
%e {28, 0, 35, 0, 1},
%e {0, 868, 0, 155, 0, 1},
%e {13888, 0, 18228, 0, 651, 0, 1},
%e {0, 1763776, 0, 330708, 0, 2667, 0, 1},
%e {112881664, 0, 149920960, 0, 5622036, 0, 10795, 0, 1},
%e {0, 57682530304, 0, 10944230080, 0, 92672916, 0, 43435, 0, 1},
%e {14766727757824, 0, 19669742833664, 0, 746396491456, 0, 1504831636, 0, 174251, 0, 1}
%t Clear[p, x, n, q];
%t p[x, 0] := 1; p[x, 1] := x;
%t p[x_, n_] := p[x, n] = x*p[x, n - 1] - (1 - q^(n - 1))*q^(n - 2)*p[x, n - 2];
%t q = 2; Table[ExpandAll[p[x, n]], {n, 0, 10}];
%t Table[CoefficientList[ExpandAll[p[x, n]], x], {n, 0, 10}];
%t Flatten[%]
%K nonn,tabl,uned
%O 0,8
%A _Roger L. Bagula_, Feb 19 2009