A272867 → (θ+1)²

nonnegative coefficients

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

Recurrence

\(\left(1 - 4\,x - 6\,x^{2} - 4\,x^{3} + x^{4} + 12\,n x + 8\,n x^{2} - 4\,n x^{3} - 4\,n x^{4} + 16\,n^{2} x^{2} + 16\,n^{2} x^{3} + 4\,n^{2} x^{4}\right)\,P_{n}(x) = \left(1 + 12\,x + 51\,x^{2} + 88\,x^{3} + 51\,x^{4} + 12\,x^{5} + x^{6} + 12\,n x + 88\,n x^{2} + 200\,n x^{3} + 156\,n x^{4} + 44\,n x^{5} + 4\,n x^{6} + 16\,n^{2} x^{2} + 80\,n^{2} x^{3} + 84\,n^{2} x^{4} + 32\,n^{2} x^{5} + 4\,n^{2} x^{6}\right)\,P_{n-1}(x)\)
\(P_{0}(x) = 1\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14x15x16x17x18x19x20x21x22x23x24x25x26x27x28Pn(1)
011
1116926
213216212825348
314845914081275432493672
416490048641135010944490010248134128
518014851152044250872648673046080133652000121292896
61962214224001203753680646485646543363900151400002976634561692379456
7111230873852826652511118242888403469708847747073088400128998134675257967548822518569088
8112841046092851590027336969464056217640963332842234006400233704241093478434874847463681026008192289140527872
9114452659062490810058423682535867676068864159153822232597600237748302171154944874615563180844881729001449984169065116643611038002688
101160657012864014891251127692858947000218941440586171890113740000016012689881637856000122300061067050816027067500080191488172142852604960263530160004417517961216
111176801917600023113752014372812326229354695731217920059304374172000798192447810898281728111483077428573377120497779425021878292487269959731812935523337625544000003929312129652953573031936
12119296122337283433650338532482374639961226750976476473743914078204800318298640885519368857673457993596751247427845918776380036040204288170001125916210426816174947964437614720060569586707027256497227648625376583344128
13120811349302848492115054156960428506078252756275211367706779395245708001070860695192269869788163770182853324910250298245019474213004035324067842557675544711280596093925066348329915797267200385655470272811024010413153410902528788125351527292616492367872
141224132303843846845475831841927330060924862567424248718399939961071120031536638133079366745203215921625407872548987432320325860161220033292897075202722692155547178575176707294088647653039844284480013541335107336773166144791347393213309470721711368751624022410716304390484117997636354048
Technical details
Node id
n-4b769f167be1b9f8 · revision 0 · JSON
Definition source
derived:theta_plus_one_squared
Fingerprint
f6-d7a387249c78d2a7

Observed on the stored rows ?

  • Degrees: 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28 (affine: slope 2, 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,  16,    9;
  2: 1,  32,  162,   128,     25;
  3: 1,  48,  459,  1408,   1275,     432,       49;
  4: 1,  64,  900,  4864,  11350,   10944,     4900,     1024,        81;
  5: 1,  80, 1485, 11520,  44250,   87264,    86730,    46080,     13365,      2000,       121;
  6: 1,  96, 2214, 22400, 120375,  368064,   648564,   654336,    390015,    140000,     29766,      3456,      169;
  7: 1, 112, 3087, 38528, 266525, 1111824,  2888403,  4697088,   4774707,   3088400,   1289981,    346752,    57967,     5488,     225;
  8: 1, 128, 4104, 60928, 515900, 2733696,  9464056, 21764096,  33328422,  34006400,  23370424,  10934784,  3487484,   746368,  102600,    8192,    289;
  9: 1, 144, 5265, 90624, 908100, 5842368, 25358676, 76068864, 159153822, 232597600, 237748302, 171154944, 87461556, 31808448, 8172900, 1449984, 169065, 11664, 361;
%F Formula
The row polynomials satisfy (1+(12*n-4)*x+(16*n^2+8*n-6)*x^2+(16*n^2-4*n-4)*x^3+(4*n^2-4*n+1)*x^4)*P(n,x) = (1+(12*n+12)*x+(16*n^2+88*n+51)*x^2+(80*n^2+200*n+88)*x^3+(84*n^2+156*n+51)*x^4+(32*n^2+44*n+12)*x^5+(4*n^2+4*n+1)*x^6)*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[((1 + (12*n + 12)*x + (16*n^2 + 88*n + 51)*x^2 + (80*n^2 + 200*n + 88)*x^3 + (84*n^2 + 156*n + 51)*x^4 + (32*n^2 + 44*n + 12)*x^5 + (4*n^2 + 4*n + 1)*x^6)*P[n - 1, x])/(1 + (12*n - 4)*x + (16*n^2 + 8*n - 6)*x^2 + (16*n^2 - 4*n - 4)*x^3 + (4*n^2 - 4*n + 1)*x^4)]];
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] = ((1 + (12*n + 12)*x + (16*n^2 + 88*n + 51)*x^2 + (80*n^2 + 200*n + 88)*x^3 + (84*n^2 + 156*n + 51)*x^4 + (32*n^2 + 44*n + 12)*x^5 + (4*n^2 + 4*n + 1)*x^6)*v[i - 1])/(1 + (12*n - 4)*x + (16*n^2 + 8*n - 6)*x^2 + (16*n^2 - 4*n - 4)*x^3 + (4*n^2 - 4*n + 1)*x^4)); 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.