OFFSET
0,4
COMMENTS
Row sums give A093856.
REFERENCES
Eugene Jahnke and Fritz Emde, Table of Functions with Formulae and Curves, Dover Book, New York, 1945, page 144.
LINKS
G. C. Greubel, Rows n = 0..30 of triangle, flattened
FORMULA
Coefficient list of the polynomials p(k, x) = 2*(k-1)*p(k-1, x) - x*p(k - 2, x), with p(0, x) = 1 and p(1, x) = 1 + x.
EXAMPLE
Triangle begins as:
1;
1, 1;
2, 1;
8, 3, -1;
48, 16, -7;
384, 120, -59, 1;
3840, 1152, -606, 17;
46080, 13440, -7392, 263, -1;
MATHEMATICA
p[n_, x_]:= p[n, x]= If[n==0, 1, If[n==1, x+1, 2*(n-1)*p[n-1, x] -x*p[n-2, x]]]; Table[CoefficientList[p[n, x], x], {n, 0, 10}]//Flatten
CROSSREFS
KEYWORD
tabf,sign
AUTHOR
Roger L. Bagula, Oct 06 2006
EXTENSIONS
Edited by G. C. Greubel, Nov 22 2019
STATUS
approved