A013618 → (θ+1)²

nonnegative coefficients

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

Recurrence

\(\left(1 + 55\,x + 484\,x^{2} + 33\,n x + 484\,n x^{2} + 121\,n^{2} x^{2}\right)\,P_{n}(x) = \left(1 + 99\,x + 2057\,x^{2} + 11979\,x^{3} + 33\,n x + 1089\,n x^{2} + 7986\,n x^{3} + 121\,n^{2} x^{2} + 1331\,n^{2} x^{3}\right)\,P_{n-1}(x)\)
\(P_{0}(x) = 1 + 88\,x + 1089\,x^{2}\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14x15x16Pn(1)
018810891178
1113232672129624696
21176653485184366025457920
3122010890212960183012557978367852032
412641633542592054903753478701686806489127526400
51308228697453601281087512175455660764542312471789441990158336
6135230492119257625621750324678816243058169299774315521736306936130122606592
7139639204178886446119150730527336729174507644898441984156267624249235794769100445031055360
8144049005255552076865250146105467218229362690149661473280781338121245235794769100031384283767216447145549824
91484598953513840120788250267860023240104597918411569051520286490644456512968712300500345227121439314108488056798491895688069120
1015287187446851201811823754591886112802091958369877657236488594719333695518748492020002071362728635864930185668158085303943956658491292091556626432
111572849426090656261707875746181493214895993512421401590679042234627026760716859325990650089759051574220632046206843027526895127143656037676645158021047617957026302787584
12161699099775174436639102511607267672260679886467428031813580852141297291083472061127738200314156680509772114954896526746176482658900055922599473032212294666485443712556229225247065143421173760
13166011434596896804996241251741090150843446647744580255965046401117313513380351180152819345500942470041529316356080861975298160241329450027961295710477415922099980128165568834343837510693755313704066563369644010208493568
141704130680119257606661655002532494764869514636391214267727119360223462702676070269749215850400025132534440781768179458758320954112965317800111845180378921288491786656010253245506747507000171100085019265064961327947193057235452945604783860775649280
Technical details
Node id
n-314a54b7f65b20a6 · revision 0 · JSON
Definition source
derived:theta_plus_one_squared
Fingerprint
f6-e20b2a4d6e4d3436

Observed on the stored rows ?

  • Degrees: 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 (affine: slope 1, 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: 1,  88,  1089;
  1: 1, 132,  3267,   21296;
  2: 1, 176,  6534,   85184,    366025;
  3: 1, 220, 10890,  212960,   1830125,    5797836;
  4: 1, 264, 16335,  425920,   5490375,   34787016,    86806489;
  5: 1, 308, 22869,  745360,  12810875,  121754556,   607645423,   1247178944;
  6: 1, 352, 30492, 1192576,  25621750,  324678816,  2430581692,   9977431552,   17363069361;
  7: 1, 396, 39204, 1788864,  46119150,  730527336,  7291745076,  44898441984,  156267624249,   235794769100;
  8: 1, 440, 49005, 2555520,  76865250, 1461054672, 18229362690, 149661473280,  781338121245,  2357947691000,  3138428376721;
  9: 1, 484, 59895, 3513840, 120788250, 2678600232, 40104597918, 411569051520, 2864906444565, 12968712300500, 34522712143931, 41084880567984;
%F Formula
The row polynomials satisfy (1+(33*n+55)*x+(121*n^2+484*n+484)*x^2)*P(n,x) = (1+(33*n+99)*x+(121*n^2+1089*n+2057)*x^2+(1331*n^2+7986*n+11979)*x^3)*P(n-1,x) for n >= 1, with P(0,x) = 1 + 88*x + 1089*x^2.
%t Mathematica
P[0, x_] := 1 + 88*x + 1089*x^2;
P[n_, x_] := P[n, x] = Expand[Together[((1 + (33*n + 99)*x + (121*n^2 + 1089*n + 2057)*x^2 + (1331*n^2 + 7986*n + 11979)*x^3)*P[n - 1, x])/(1 + (33*n + 55)*x + (121*n^2 + 484*n + 484)*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 + 88*x + 1089*x^2; for(n = 1, N, my(i = n + 1); v[i] = ((1 + (33*n + 99)*x + (121*n^2 + 1089*n + 2057)*x^2 + (1331*n^2 + 7986*n + 11979)*x^3)*v[i - 1])/(1 + (33*n + 55)*x + (121*n^2 + 484*n + 484)*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. [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.