A257619 → x ↦ x+1

nonnegative coefficients

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

Recurrence

\(P_{n}(x) = \left(-5 - 7\,x + 9\,n + 9\,n x\right)\,P_{n-1}(x) + \left(-9\,x - 9\,x^{2}\right)\,P_{n-1}'(x)\)
\(P_{0}(x) = 1\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14Pn(1)
011
1426
252524108
31144171658883456
4354647092841964650016154872
514185603546400298012092378071564328940456
6695094402085283202271469201067466401940593278733264632124648
740315475201411041632018886707840119407288003522583064398353956866090812852898998536
82701136838401080454735360171563199808013653044204805629477693841109186958888079670924952705002565113546244712
92052863997184092378879873280169736213687040162975308496000866872185379202483049480912033943949410801628319349801047976524512560695030228296
101744934397606400872467198803200018208363427654400204854217824256001337429098413408050675190636470401048785045920040102019755860880327026239441211527743812102468759288235419688
111640238333750016009021310835625088002107983395508390400271994215306894080021072612929374406409972687292302134402801247978282124804301644417664880030305186926425846555510855779612680518602820489324847930293745416
121689445483762516480010136672902575098880026217464830596399360038167822546043590400034246222595391014208019481357033628602112069573163930474364160148865232649919385601728570958184574504893272544749064481312750638574284139485705450040961385668753473593630952
131892178941814018457600122991631217911199744003488245657236146526720056562716808285739251200577064218857133508300803839471393312051392896016698125579826104494080462553682009116938240076880943178200409248068454841299735931040261937089382092124026273145913194180153434276158848192223901223595468383348936
1422895365195949623336960016026755637164736335872004945800970350254119705600884002349378736748160000010108815806647922831667200770763127543136717749760039599832448992670318464001353659298253984616294400296701724082423685945920388722369457436295881602682484467098413937960765397651308969879205256623828228900921687777038074921638439085876816137690278741928
Technical details
Node id
n-9d3de644c7283a2d · revision 0 · JSON
Definition source
derived:shift_x_plus_one
Fingerprint
f6-cc3d28c31b2705bc

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:              4,              2;
  2:             52,             52,               4;
  3:           1144,           1716,             588,               8;
  4:          35464,          70928,           41964,            6500,             16;
  5:        1418560,        3546400,         2980120,          923780,          71564,             32;
  6:       69509440,      208528320,       227146920,       106746640,       19405932,         787332,            64;
  7:     4031547520,    14110416320,     18886707840,     11940728800,     3522583064,      398353956,       8660908,          128;
  8:   270113683840,  1080454735360,   1715631998080,   1365304420480,   562947769384,   110918695888,    8079670924,     95270500,        256;
  9: 20528639971840, 92378879873280, 169736213687040, 162975308496000, 86687218537920, 24830494809120, 3394394941080, 162831934980, 1047976524, 512;
%F Formula
The row polynomials satisfy P(n,x) = (9*n-5+(9*n-7)*x)*P(n-1,x) - (9*x+9*x^2)*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[(9*n - 5 + (9*n - 7)*x)*P[n - 1, x] - (9*x + 9*x^2)*D[P[n - 1, x], x]];
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] = (9*n - 5 + (9*n - 7)*x)*v[i - 1] - (9*x + 9*x^2)*deriv(v[i - 1], x)); 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. [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