A272866 → D → D

nonnegative coefficients

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

Recurrence

\(\left(16 + 18\,x + 6\,x^{2} - 25\,n - 30\,n x - 10\,n x^{2} + 9\,n^{2} + 12\,n^{2} x + 4\,n^{2} x^{2}\right)\,P_{n}(x) = \left(-7\,n - 27\,n x - 27\,n x^{2} - 12\,n x^{3} - 2\,n x^{4} + 9\,n^{2} + 39\,n^{2} x + 49\,n^{2} x^{2} + 24\,n^{2} x^{3} + 4\,n^{2} x^{4}\right)\,P_{n-1}(x)\)
\(P_{0}(x) = 0\)
\(P_{1}(x) = 2\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14x15x16x17x18x19x20x21x22x23x24x25x26Pn(1)
00
122
222361270
36027036018030900
4116864234028801740504568500
519019808220174602055013860532010809068750
6282378021240651601196701368369912045360126901980132506250
73926426456121839604659907762868698486622563420901178102587232761823500000
8520100808652043344014078403119760484484053481604223520238392095172026208047320504024023125000
96661490415012089964035746209942912199518482938356032065470260409601572832870171922276820521640799207344306147656250
1083021060243540169992079983002684556066396120123385680174319290188505900156505140997120804852302017849160487080095472012699010260380917968750
1110122871037488029878201625679064008252188708520425505960743723640101618253010907946729219295806133026903200412601300543204063435295594401636470192280138604625585937500
1212123801655321249579203063918013856119247508753612631101122642652540439324776058398464526230424096534403069236840711602036089440897348672312519636847804321751838026611202799721821655233398437500
13143049140788580785070054332850277657380108652544033331240808142849000160127253002553142878033165758340352024245303056974830021714264000125918020805937085440226092438068821610016486470030360330414414039468023400650196777343750
14166662244109200011957400916324505223418202298576280799999200022388265900509621112009512008506014639523444018648500325019707050790017294560920012601540224076120104060379999620001559748190052234182001411139730302522220502320006224400541450294847561145019531250
Technical details
Node id
n-2303cf9bfb74fbab · revision 0 · JSON
Definition source
derived:derivative
Fingerprint
f6-6c1b3ac9ecf30630

Observed on the stored rows ?

  • Degrees: -1, 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26 (affine: slope 2, 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 = 0, …, ascending powers of x
%e Example
Triangle begins:
  0:   0;
  1:   2;
  2:  22,    36,     12;
  3:  60,   270,    360,    180,      30;
  4: 116,   864,   2340,   2880,    1740,     504,       56;
  5: 190,  1980,   8220,  17460,   20550,   13860,     5320,     1080,       90;
  6: 282,  3780,  21240,  65160,  119670,  136836,    99120,    45360,    12690,     1980,      132;
  7: 392,  6426,  45612, 183960,  465990,  776286,   869848,   662256,   342090,   117810,    25872,    3276,     182;
  8: 520, 10080,  86520, 433440, 1407840, 3119760,  4844840,  5348160,  4223520,  2383920,   951720,  262080,   47320,   5040,   240;
  9: 666, 14904, 150120, 899640, 3574620, 9942912, 19951848, 29383560, 32065470, 26040960, 15728328, 7017192, 2276820, 521640, 79920, 7344, 306;
%F Formula
The row polynomials satisfy (9*n^2-25*n+16+(12*n^2-30*n+18)*x+(4*n^2-10*n+6)*x^2)*P(n,x) = (9*n^2-7*n+(39*n^2-27*n)*x+(49*n^2-27*n)*x^2+(24*n^2-12*n)*x^3+(4*n^2-2*n)*x^4)*P(n-1,x) for n >= 2, with P(0,x) = 0, P(1,x) = 2.
%t Mathematica
P[0, x_] := 0;
P[1, x_] := 2;
P[n_, x_] := P[n, x] = Expand[Together[((9*n^2 - 7*n + (39*n^2 - 27*n)*x + (49*n^2 - 27*n)*x^2 + (24*n^2 - 12*n)*x^3 + (4*n^2 - 2*n)*x^4)*P[n - 1, x])/(9*n^2 - 25*n + 16 + (12*n^2 - 30*n + 18)*x + (4*n^2 - 10*n + 6)*x^2)]];
Table[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N + 1)); v[1] = 0; v[2] = 2; for(n = 2, N, my(i = n + 1); v[i] = ((9*n^2 - 7*n + (39*n^2 - 27*n)*x + (49*n^2 - 27*n)*x^2 + (24*n^2 - 12*n)*x^3 + (4*n^2 - 2*n)*x^4)*v[i - 1])/(9*n^2 - 25*n + 16 + (12*n^2 - 30*n + 18)*x + (4*n^2 - 10*n + 6)*x^2)); v};
row(n, p) = {my(c = Vecrev(p)); c};
T(N) = {my(v = P(N)); concat(vector(#v, i, row(i - 1, v[i])))};
T(9)

polytool c48629374597

Properties

Proof chains ? JSON

References

  1. [Bra06] Petter Brändén. On linear transformations preserving the Pólya frequency property. Transactions of the American Mathematical Society, 358(8):3697–3716, February 2006. doi:10.1090/s0002-9947-06-03856-6
  2. [Bra15] Petter Brändén. Unimodality, log-concavity, real-rootedness and beyond. Handbook of enumerative combinatorics, :437–483, March 2015. doi:10.1201/b18255-10
  3. [SP14] J Schur and G Polya. Über zwei Arten von Faktorenfolgen in der Theorie der algebraischen Gleichungen. J. Reine Angew. Math., 1914.