A008459 → basis A013610 → (θ+1)²

nonnegative coefficients

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

Recurrence

\(\left(4\,n^{2} - 9\,n^{2} x + 18\,n^{3} x + 9\,n^{4} x^{2}\right)\,P_{n}(x) = \left(18\,x^{2} - 8\,n - 78\,n x - 198\,n x^{2} - 108\,n x^{3} + 16\,n^{2} + 72\,n^{2} x + 18\,n^{2} x^{2} - 27\,n^{2} x^{3} + 72\,n^{3} x + 252\,n^{3} x^{2} + 162\,n^{3} x^{3} + 36\,n^{4} x^{2} + 81\,n^{4} x^{3}\right)\,P_{n-1}(x) + \left(3\,x^{2} + 9\,x^{3} - 8\,n x - 60\,n x^{2} - 144\,n x^{3} - 108\,n x^{4} - 36\,n^{2} x^{2} - 162\,n^{2} x^{3} - 162\,n^{2} x^{4} - 18\,n^{3} x^{3} - 54\,n^{3} x^{4}\right)\,P_{n-1}'(x)\)
\(P_{0}(x) = 1\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14Pn(1)
011
121214
267281159
3203609724321784
470168072908640202519705
525275604536090720607508748213390
692433264255150725760850500367416357212268735
734321441441347192498960085050006613488200037613996823743200
81287061776068108043113510470166250808315204500846010077696531441245191905
9486202625480333590401816214405108103007881073206601240802771366404782969019683002503630910
1018475611085360159497910100818432034054020006620101488750891141048037017601578379770216513000714492925319106703
117054324655851274826180053874849602126638800050018544576720855495366304858560031918346460844400700094313062825509168253933071672
122704156194699232345696951627935107200126269178750349109025408612727171056685968611328478775196900197026830000429124435743979430208898135292528447180857
1310400600811246800157706377921413516424327202019825002291027979240475176173472065167018076165860208410056334945611000011443318286402089200859201634606227831248730825017212415902
144011660033697944007118690670070091723520039755149434001431185379624034301780022510558574440652806185775543948045820559584800218853462227406314029263360980763736680656223346801076168025246147259630095
Technical details
Node id
n-ba36206bc89abfe2 · revision 0 · JSON
Definition source
derived:theta_plus_one_squared
Fingerprint
f6-703a5c6efdcbfe63

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,      12;
  2:     6,      72,       81;
  3:    20,     360,      972,       432;
  4:    70,    1680,     7290,      8640,      2025;
  5:   252,    7560,    45360,     90720,     60750,      8748;
  6:   924,   33264,   255150,    725760,    850500,    367416,     35721;
  7:  3432,  144144,  1347192,   4989600,   8505000,   6613488,   2000376,    139968;
  8: 12870,  617760,  6810804,  31135104,  70166250,  80831520,  45008460,  10077696,   531441;
  9: 48620, 2625480, 33359040, 181621440, 510810300, 788107320, 660124080, 277136640, 47829690, 1968300;
%F Formula
The row polynomials satisfy (4*n^2+(18*n^3-9*n^2)*x+9*n^4*x^2)*P(n,x) = (16*n^2-8*n+(72*n^3+72*n^2-78*n)*x+(36*n^4+252*n^3+18*n^2-198*n+18)*x^2+(81*n^4+162*n^3-27*n^2-108*n)*x^3)*P(n-1,x) - (8*n*x+(36*n^2+60*n-3)*x^2+(18*n^3+162*n^2+144*n-9)*x^3+(54*n^3+162*n^2+108*n)*x^4)*d/dx P(n-1,x) for n >= 1, with P(0,x) = 1.
%t Mathematica
P[0, x_] := 1;
P[n_, x_] := P[n, x] = Expand[Together[((16*n^2 - 8*n + (72*n^3 + 72*n^2 - 78*n)*x + (36*n^4 + 252*n^3 + 18*n^2 - 198*n + 18)*x^2 + (81*n^4 + 162*n^3 - 27*n^2 - 108*n)*x^3)*P[n - 1, x] - (8*n*x + (36*n^2 + 60*n - 3)*x^2 + (18*n^3 + 162*n^2 + 144*n - 9)*x^3 + (54*n^3 + 162*n^2 + 108*n)*x^4)*D[P[n - 1, x], x])/(4*n^2 + (18*n^3 - 9*n^2)*x + 9*n^4*x^2)]];
Table[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N + 1)); v[1] = 1; for(n = 1, N, my(i = n + 1); v[i] = ((16*n^2 - 8*n + (72*n^3 + 72*n^2 - 78*n)*x + (36*n^4 + 252*n^3 + 18*n^2 - 198*n + 18)*x^2 + (81*n^4 + 162*n^3 - 27*n^2 - 108*n)*x^3)*v[i - 1] - (8*n*x + (36*n^2 + 60*n - 3)*x^2 + (18*n^3 + 162*n^2 + 144*n - 9)*x^3 + (54*n^3 + 162*n^2 + 108*n)*x^4)*deriv(v[i - 1], x))/(4*n^2 + (18*n^3 - 9*n^2)*x + 9*n^4*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. [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. [Fav35] Jean Favard. Sur les polynômes de tchebicheff. C. R. Acad. Sci. Paris, 200:2052–2053, 1935.
  3. [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
  4. [SP14] J Schur and G Polya. Über zwei Arten von Faktorenfolgen in der Theorie der algebraischen Gleichungen. J. Reine Angew. Math., 1914.
  5. [Sze39] G. Szegő. Orthogonal Polynomials. Colloquium publications, American Mathematical Society, 1939. doi:10.1090/coll/023