basis-map coefficients of A021012 → basis A008277 → reverse

Proved for all n all roots real, in (−∞, 0]coefficients of one signHadamard kernel

Recurrence

\(P_{n}(x) = \left(1 - x - n + 2\,n x - n^{2} x\right)\,P_{n-1}(x) + \left(-x^{2} + n x^{2}\right)\,P_{n-1}'(x)\)
\(P_{1}(x) = 1\)

Rows ?

nx0x1x2x3x4x5x6x7Pn(1)
111
2-1-1-2
326210
4-6-36-42-6-90
524240600360241248
6-120-1800-7800-10800-3720-120-24360
77201512010080025200021672045360720631440
8-5040-141120-1340640-5292000-8573040-4868640-640080-5040-20865600
Technical details
Node id
n-e0deeda849b7405a · revision 0 · JSON
Definition source
derived:reversal
Fingerprint
f6-4732d0911d5a78c5

Observed on the stored rows ?

  • Degrees: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 (affine: slope 1, intercept -1)
  • Palindromic rows: no
  • γ-positive (gamma_positive): no
  • Nonnegative coefficients (nonn): no
  • Only rational roots (rr_by_factors: every nonzero row is a product of linear factors over ℚ): no

Matches ?

No OEIS matches.

Submission text ?

Atlas rows n = 1, …, ascending powers of x
%e Example
Triangle begins:
   1:       1;
   2:      -1,        -1;
   3:       2,         6,          2;
   4:      -6,       -36,        -42,          -6;
   5:      24,       240,        600,         360,          24;
   6:    -120,     -1800,      -7800,      -10800,       -3720,         -120;
   7:     720,     15120,     100800,      252000,      216720,        45360,          720;
   8:   -5040,   -141120,   -1340640,    -5292000,    -8573040,     -4868640,      -640080,       -5040;
   9:   40320,   1451520,   18627840,   106686720,   280264320,    313286400,    121968000,    10281600,      40320;
  10: -362880, -16329600, -272160000, -2133734400, -8283461760, -15431472000, -12376022400, -3385670400, -185431680, -362880;
%F Formula
The row polynomials satisfy P(n,x) = -(n-1+(n^2-2*n+1)*x)*P(n-1,x) + (n-1)*x^2*d/dx P(n-1,x) for n >= 2, with P(1,x) = 1.
%t Mathematica
P[1, x_] := 1;
P[n_, x_] := P[n, x] = Expand[-(n - 1 + (n^2 - 2*n + 1)*x)*P[n - 1, x] + (n - 1)*x^2*D[P[n - 1, x], x]];
Table[CoefficientList[P[n, x], x], {n, 1, 10}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N)); v[1] = 1; for(n = 2, N, my(i = n); v[i] = -(n - 1 + (n^2 - 2*n + 1)*x)*v[i - 1] + (n - 1)*x^2*deriv(v[i - 1], x)); v};
row(n, p) = {my(c = Vecrev(p)); c};
T(N) = {my(v = P(N)); concat(vector(#v, i, row(i, v[i])))};
T(10)

polytool c48629374597

Properties

Proof chains ? JSON

Same fingerprint ?

References

  1. [MW08] Shi-Mei Ma and Yi Wang. q-Eulerian polynomials and polynomials with only real zeros. The Electronic Journal of Combinatorics, 15(1):Research Paper 17, January 2008. doi:10.37236/741