A257616 → θ+1

nonnegative coefficients

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

Recurrence

\(\left(-2 + 3\,n\right)\,P_{n}(x) = \left(8 - 80\,x - 40\,x^{2} + 24\,n - 192\,n x - 36\,n x^{2} + 144\,n^{2} x + 216\,n^{2} x^{2} - 108\,n^{3} x^{2}\right)\,P_{n-2}(x) + \left(24\,x - 24\,x^{3} + 72\,n x - 36\,n x^{2} - 36\,n x^{3} - 108\,n^{2} x^{2} + 108\,n^{2} x^{3}\right)\,P_{n-2}'(x) + \left(-8 + 16\,x - 6\,n - 48\,n x + 36\,n^{2} x\right)\,P_{n-1}(x) + \left(-12\,x + 12\,x^{2} + 18\,n x - 18\,n x^{2}\right)\,P_{n-1}'(x)\)
\(P_{0}(x) = 1\)
\(P_{1}(x) = 2 + 4\,x\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14Pn(1)
011
1246
24641280
38624936321600
416531226208106248042240
532433285262727016961083201921379840
66434867290576002806784015096000104601644853616640
712827942401435426568753536001094192000287085312977984010242412748800
82562236518421688688642363155865656897984000354473379845060694016894607362304123318272000
9512178947072318402662405825205288962424609930240290953191628810194109255688490737664080526182451207053805158400
10102414316339204591847577601351837286400090709583308800186210042642432126993416632320270367457280001377554273280715816960011264446313490022400
11204811453198336654884385792030097977446400031019596735488001009507836343910411777591424012288496313547767808067720449254400021829479526400629925908482457630944401974886400
124096916258652169274896145612865085758306713609946218741626880048682597839342796889509694822493388864910130452457062417903193734928384016271439576678400340079525339136549755191296532482332731841183744000
1381927330075279361307831298637824137838764093800448304161718096998400021546162553565822976590040842567434567686743323915056395059232319243830348734464608323436193996800037905660125795123252313251945512964764548931584114688189951021353533440000
141638458640615342081839100201653043228753519862858383368976455092248911872089387387627528926003234990146840475910307845934125045249627652096449873316520404561100814897897937921487667201974820120294760611848626055958857515008796943420716318724104843073945624576016614382667722391552000
Technical details
Node id
n-ad646368add3e231 · revision 0 · JSON
Definition source
derived:theta_plus_one
Fingerprint
f6-506bdfb5cd7829bb

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 0)
  • 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:   1;
  1:   2,         4;
  2:   4,        64,          12;
  3:   8,       624,         936,           32;
  4:  16,      5312,       26208,        10624,            80;
  5:  32,     43328,      526272,       701696,        108320,           192;
  6:  64,    348672,     9057600,     28067840,      15096000,       1046016,           448;
  7: 128,   2794240,   143542656,    875353600,    1094192000,     287085312,       9779840,        1024;
  8: 256,  22365184,  2168868864,  23631558656,   56897984000,   35447337984,    5060694016,    89460736,      2304;
  9: 512, 178947072, 31840266240, 582520528896, 2424609930240, 2909531916288, 1019410925568, 84907376640, 805261824, 5120;
%F Formula
The row polynomials satisfy (3*n-2)*P(n,x) = (24*n+8+(144*n^2-192*n-80)*x-(108*n^3-216*n^2+36*n+40)*x^2)*P(n-2,x) + ((72*n+24)*x-(108*n^2+36*n)*x^2+(108*n^2-36*n-24)*x^3)*d/dx P(n-2,x) - (6*n+8-(36*n^2-48*n+16)*x)*P(n-1,x) + ((18*n-12)*x-(18*n-12)*x^2)*d/dx P(n-1,x) for n >= 2, with P(0,x) = 1, P(1,x) = 2 + 4*x.
%t Mathematica
P[0, x_] := 1;
P[1, x_] := 2 + 4*x;
P[n_, x_] := P[n, x] = Expand[Together[((24*n + 8 + (144*n^2 - 192*n - 80)*x - (108*n^3 - 216*n^2 + 36*n + 40)*x^2)*P[n - 2, x] + ((72*n + 24)*x - (108*n^2 + 36*n)*x^2 + (108*n^2 - 36*n - 24)*x^3)*D[P[n - 2, x], x] - (6*n + 8 - (36*n^2 - 48*n + 16)*x)*P[n - 1, x] + ((18*n - 12)*x - (18*n - 12)*x^2)*D[P[n - 1, x], x])/(3*n - 2)]];
Table[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N + 1)); v[1] = 1; v[2] = 2 + 4*x; for(n = 2, N, my(i = n + 1); v[i] = ((24*n + 8 + (144*n^2 - 192*n - 80)*x - (108*n^3 - 216*n^2 + 36*n + 40)*x^2)*v[i - 2] + ((72*n + 24)*x - (108*n^2 + 36*n)*x^2 + (108*n^2 - 36*n - 24)*x^3)*deriv(v[i - 2], x) - (6*n + 8 - (36*n^2 - 48*n + 16)*x)*v[i - 1] + ((18*n - 12)*x - (18*n - 12)*x^2)*deriv(v[i - 1], x))/(3*n - 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

Same fingerprint ?

References

  1. [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
  2. [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
  3. [SP14] J Schur and G Polya. Über zwei Arten von Faktorenfolgen in der Theorie der algebraischen Gleichungen. J. Reine Angew. Math., 1914.