A142459 → D

nonnegative coefficients

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

Recurrence

\(\left(-11 + 4\,n\right)\,P_{n}(x) = \left(35 - 210\,x + 1155\,x^{2} - 20\,n + 176\,n x - 1388\,n x^{2} - 32\,n^{2} x + 528\,n^{2} x^{2} - 64\,n^{3} x^{2}\right)\,P_{n-2}(x) + \left(28\,x - 336\,x^{2} + 308\,x^{3} - 16\,n x + 304\,n x^{2} - 288\,n x^{3} - 64\,n^{2} x^{2} + 64\,n^{2} x^{3}\right)\,P_{n-2}'(x) + \left(-62 + 242\,x + 24\,n - 176\,n x + 32\,n^{2} x\right)\,P_{n-1}(x) + \left(-44\,x + 44\,x^{2} + 16\,n x - 16\,n x^{2}\right)\,P_{n-1}'(x)\)
\(P_{1}(x) = 0\)
\(P_{2}(x) = 1\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13Pn(1)
10
211
310212
4591183180
5308212492443360
6155727124406866228575600
7780629705410578365941083903061995840
839055300133821326745284356607503345234330760540480
91953042896479237178983296681244061964972086894376136712882075673600
1097655327201076059194475162684592677633557408470118388950329520376607812424979394515200
11488280225125493388878528576865369567239214094111557409805435085882071656667921005019735243945218103352212864000
122441405122974271390127857990721514545857480360500256240327906003074883934825455250590630340954641924010338422125524414051011154872234316800
13122070300208770394692178966108559403035370930835801577825438351640300153744196740022089556136922966070741861671605368983256782010438519734601342773300127771770303897600
146103515491889919879228245495320400778604303005131390045655239295082115129946761303822072151604554854459084730483828721313841359681761545627581831773466926010394559335754732421858813420970891461120000
1530517577981706909336485433190087570580041161519217209121641238250165069992290505661650868080355487930641815586268726742155344907738072222885029712598612229037980430228041012169698775879348102414560189124396728513741424481076457277440000
Technical details
Node id
n-ad424251fd593cd0 · revision 0 · JSON
Definition source
derived:derivative
Fingerprint
f6-6bc0895ac2a350b9

Observed on the stored rows ?

  • Degrees: -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 (affine: slope 1, intercept -2)
  • Palindromic rows: no
  • γ-positive (gamma_positive): no
  • Nonnegative coefficients (nonn): yes
  • 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:      0;
   2:      1;
   3:     10,         2;
   4:     59,       118,          3;
   5:    308,      2124,        924,           4;
   6:   1557,     27124,      40686,        6228,           5;
   7:   7806,    297054,    1057836,      594108,       39030,           6;
   8:  39055,   3001338,   21326745,    28435660,     7503345,      234330,         7;
   9: 195304,  28964792,  371789832,   966812440,   619649720,    86894376,   1367128,       8;
  10: 976553, 272010760, 5919447516, 26845926776, 33557408470, 11838895032, 952037660, 7812424, 9;
%F Formula
The row polynomials satisfy (4*n-11)*P(n,x) = -(20*n-35+(32*n^2-176*n+210)*x+(64*n^3-528*n^2+1388*n-1155)*x^2)*P(n-2,x) - ((16*n-28)*x+(64*n^2-304*n+336)*x^2-(64*n^2-288*n+308)*x^3)*d/dx P(n-2,x) + (24*n-62+(32*n^2-176*n+242)*x)*P(n-1,x) + ((16*n-44)*x-(16*n-44)*x^2)*d/dx P(n-1,x) for n >= 3, with P(1,x) = 0, P(2,x) = 1.
%t Mathematica
P[1, x_] := 0;
P[2, x_] := 1;
P[n_, x_] := P[n, x] = Expand[Together[(-(20*n - 35 + (32*n^2 - 176*n + 210)*x + (64*n^3 - 528*n^2 + 1388*n - 1155)*x^2)*P[n - 2, x] - ((16*n - 28)*x + (64*n^2 - 304*n + 336)*x^2 - (64*n^2 - 288*n + 308)*x^3)*D[P[n - 2, x], x] + (24*n - 62 + (32*n^2 - 176*n + 242)*x)*P[n - 1, x] + ((16*n - 44)*x - (16*n - 44)*x^2)*D[P[n - 1, x], x])/(4*n - 11)]];
Table[CoefficientList[P[n, x], x], {n, 1, 10}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N)); v[1] = 0; v[2] = 1; for(n = 3, N, my(i = n); v[i] = (-(20*n - 35 + (32*n^2 - 176*n + 210)*x + (64*n^3 - 528*n^2 + 1388*n - 1155)*x^2)*v[i - 2] - ((16*n - 28)*x + (64*n^2 - 304*n + 336)*x^2 - (64*n^2 - 288*n + 308)*x^3)*deriv(v[i - 2], x) + (24*n - 62 + (32*n^2 - 176*n + 242)*x)*v[i - 1] + ((16*n - 44)*x - (16*n - 44)*x^2)*deriv(v[i - 1], x))/(4*n - 11)); 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. [LW07] Lily L. Liu and Yi Wang. A unified approach to polynomial sequences with only real zeros. Advances in Applied Mathematics, 38(4):542–560, May 2007. doi:10.1016/j.aam.2006.02.003
  2. [SP14] J Schur and G Polya. Über zwei Arten von Faktorenfolgen in der Theorie der algebraischen Gleichungen. J. Reine Angew. Math., 1914.