OFFSET
1,5
REFERENCES
E. S. R. Gopal, Specific Heats at Low Temperatures, Plenum Press, New York, 1966, pp. 36-40.
S. M. Ulam, Problems in Modern Mathematics, John Wiley and Sons, New York, 1960, p. 110.
LINKS
B. H. Margolius, Permutations with inversions, J. Integ. Seqs. Vol. 4 (2001), #01.2.4.
FORMULA
p(k, x) = 2*(k - 1)*p(k - 1, x) - x*p(k - 2, x) if k is odd,
2*x*p(k - 1, x) + (1 - x^2)*p(k - 2, x) if k is even.
EXAMPLE
Triangle starts:
1;
1, 1;
1, 2, 1;
4, 7, 3;
1, 10, 14, 4, -1;
8, 76, 105, 29, -8;
1, 26, 165, 204, 43, -20, 1;
MATHEMATICA
p[0, x] = 1; p[1, x] = x + 1;
p[k_, x_] := p[k, x] = If[Mod[k, 2] == 1, 2*(k - 1)*p[k - 1, x] - x*p[k - 2, x], 2*x*p[k - 1, x] + (1 - x^2)*p[k - 2, x]];
w = Table[CoefficientList[p[n, x], x], {n, 0, 10}]; Flatten[w]
CROSSREFS
KEYWORD
uned,tabf,sign
AUTHOR
Roger L. Bagula, Oct 07 2006
STATUS
approved