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 ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14Pn(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
9403201451520186278401066867202802643203132864001219680001028160040320852647040
10-362880-16329600-272160000-2133734400-8283461760-15431472000-12376022400-3385670400-185431680-362880-42085008000
113628800199584000419126400043110144000232196025600651322425600895333824000528897600000103424428800371226240036288002462394816000
12-39916800-2634508800-68058144000-889146720000-6347848953600-25043640652800-52835952153600-55061233920000-24409163116800-3453841036800-81709689600-39916800-168193308729600
13479001600373621248001164452889600188367379200001722020332032009099171873792002737697240678400446492336209920035965839926016001213085922048000125318793600000196151155200047900160013241729554099200
14-6227020800-566658892800-20966379033600-411394356172800-4687402361241600-31976561320704000-130221451616256000-307174452609024000-395019614147558400-249548076505728000-64709612263296000-4912932600576000-51005527372800-6227020800-1188734048799897600
15871782912009153720576000396661224960000928187266406400012897836390799360011039081890636800005852147049036288000188852449175470080003563337095375016960036675320659475097600183742999270871040003692519343152640000207057246607411200142824194472960087178291200120563962753538304000
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