A080248 → x ↦ x/(x+1)

nonnegative coefficients

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

Recurrence

\(\left(2 + 4\,x + 2\,x^{2}\right)\,P_{n}(x) = \left(2 + 12\,x + 24\,x^{2} + 22\,x^{3} + 10\,x^{4} + 2\,x^{5} - 4\,n x - 15\,n x^{2} - 21\,n x^{3} - 13\,n x^{4} - 3\,n x^{5} + n^{2} x^{2} + 3\,n^{2} x^{3} + 3\,n^{2} x^{4} + n^{2} x^{5}\right)\,P_{n-1}(x) + \left(4\,x + 20\,x^{2} + 40\,x^{3} + 40\,x^{4} + 20\,x^{5} + 4\,x^{6} - 2\,n x^{2} - 8\,n x^{3} - 12\,n x^{4} - 8\,n x^{5} - 2\,n x^{6}\right)\,P_{n-1}'(x) + \left(x^{2} + 5\,x^{3} + 10\,x^{4} + 10\,x^{5} + 5\,x^{6} + x^{7}\right)\,P_{n-1}''(x)\)
\(P_{0}(x) = 1\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14Pn(1)
011
1123
216613
3116392581
4144199290135669
51126972244325049096955
613704824188243201125058741788505
71110024877142989360329457318287897716981346209
8132881338691103210388576471299447172659376281880696823998521
9198507473308756355417057471041025971490527441236816075547241110427825493956467
10129534428699871909056454259950148662268428460916353324601908234071698691510808415291569711596542533
111885842504273161218146150719971382124718652452335102114807957259337944612778048475690274167724827722519879761307301505073
1212657321479532355396904226583306809813078743522009510682697221865797914084240452621047320367802527001094886237806339386061404462763981299110471500693
1317971748800132244909243167569221985246645568653623491734497897533242111204988174683574046539877541316821422856012525492054268759706970087538589570965940296067422299893197116059
1412391498525456982845838774276084784257106136919275678456632047519107041794501663178330418807106906396092596202197109778249915658970943016505876590195047145037659468251828793826655422100709985023010888674034993905
Technical details
Node id
n-280ad20172ff23e1 · revision 0 · JSON
Definition source
derived:mobius_x_over_x_plus_one
Fingerprint
f6-82391858922dbeb5

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: 1,    2;
  2: 1,    6,      6;
  3: 1,   16,     39,      25;
  4: 1,   44,    199,     290,      135;
  5: 1,  126,    972,    2443,     2504,       909;
  6: 1,  370,   4824,   18824,    32011,     25058,      7417;
  7: 1, 1100,  24877,  142989,   360329,    457318,    287897,     71698;
  8: 1, 3288, 133869, 1103210,  3885764,   7129944,   7172659,   3762818,   806968;
  9: 1, 9850, 747330, 8756355, 41705747, 104102597, 149052744, 123681607, 55472411, 10427825;
%F Formula
The row polynomials satisfy (2+4*x+2*x^2)*P(n,x) = (2-(4*n-12)*x+(n^2-15*n+24)*x^2+(3*n^2-21*n+22)*x^3+(3*n^2-13*n+10)*x^4+(n^2-3*n+2)*x^5)*P(n-1,x) + (4*x-(2*n-20)*x^2-(8*n-40)*x^3-(12*n-40)*x^4-(8*n-20)*x^5-(2*n-4)*x^6)*d/dx P(n-1,x) + (x^2+5*x^3+10*x^4+10*x^5+5*x^6+x^7)*d^2/dx^2 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[((2 - (4*n - 12)*x + (n^2 - 15*n + 24)*x^2 + (3*n^2 - 21*n + 22)*x^3 + (3*n^2 - 13*n + 10)*x^4 + (n^2 - 3*n + 2)*x^5)*P[n - 1, x] + (4*x - (2*n - 20)*x^2 - (8*n - 40)*x^3 - (12*n - 40)*x^4 - (8*n - 20)*x^5 - (2*n - 4)*x^6)*D[P[n - 1, x], x] + (x^2 + 5*x^3 + 10*x^4 + 10*x^5 + 5*x^6 + x^7)*D[P[n - 1, x], {x, 2}])/(2 + 4*x + 2*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] = ((2 - (4*n - 12)*x + (n^2 - 15*n + 24)*x^2 + (3*n^2 - 21*n + 22)*x^3 + (3*n^2 - 13*n + 10)*x^4 + (n^2 - 3*n + 2)*x^5)*v[i - 1] + (4*x - (2*n - 20)*x^2 - (8*n - 40)*x^3 - (12*n - 40)*x^4 - (8*n - 20)*x^5 - (2*n - 4)*x^6)*deriv(v[i - 1], x) + (x^2 + 5*x^3 + 10*x^4 + 10*x^5 + 5*x^6 + x^7)*deriv(deriv(v[i - 1], x), x))/(2 + 4*x + 2*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.