A038333 → basis A013609 → (θ+1)²

nonnegative coefficients

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

Recurrence

\(\left(361 + 1330\,x + 784\,x^{2} + 798\,n x + 784\,n x^{2} + 196\,n^{2} x^{2}\right)\,P_{n}(x) = \left(6859 + 45486\,x + 63308\,x^{2} + 24696\,x^{3} + 15162\,n x + 33516\,n x^{2} + 16464\,n x^{3} + 3724\,n^{2} x^{2} + 2744\,n^{2} x^{3}\right)\,P_{n-1}(x)\)
\(P_{0}(x) = 361 + 2128\,x + 1764\,x^{2}\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14x15x16Pn(1)
0361212817644253
168596064810054843904211959
21303211536416382082433367049604009784665
32476099364898801209927601584934409123800019361664429051843
447045881831969264344829366060227507205200566000220722969636894726418126802485
58938717391844198535291724611356200256461440230558426000146780774784490699861126746464256744472581039
61698356304140045453907223236901543526087796427776876122018800074368925890563729318944512102546256691211953891353629901357886257
7322687697779855971577266456764430913456173502198191616299633730429600317927158182144212571179837184876770494709762044115421465620661046784001179465409388475
861310662578011807051107562401348155234194580470934537948672094884014636040001208123201092147210097131042266240555287979982848019419096503923203925598888960003499981325209645833450459855949
91164902588982193776736814805416313071604385185801230316480390905602832965579847480004208295817137646084220600775667288322901379695410380801352863723106649604102250838963200073149609696880645831373844316161758763201412008935
102213314919066161782814539796031687138032579982236243116801750323627520807395190256531800013707020661534047232160382829475356956161323029141107133644877113232217079027203117710637612032000833905550544439296132955323650408448958127119142502466766122704633125257
114205298346225705916112932610801652081602812770232374864876985003232993599744221585124437070394000423204262924863708288565922269720188116736544646996422436683776380939367152370394368192518631872542976000686582236614921687041641998247082544332823665739842819809281555680955578122242511083477921489449011
12799006685782884121329695390344095342563552901640681764283641861637350906936139264589416431002607248040012508037104223749600512188169154681962548814722069658586405259398348816888311943755087483648102419912156192863232004565771873489229218816145590511241318930841631475433990950346342441381113418378051584250020153575055360093677014607334400334565
1315181127029874798299671165616057622661640778905359687925246798044213887084039733307520152712438941584605174000356479057470376863614592595868989826214737913280737315871406873660661760687595557710028561834240486494582741916100352000260248996788886065472512103733239259439738224640299016622914028290252805896808662118872350720712557437688907776000398254324627999293443469688875393000225563807
142884414135676211676811360228981876781927590416913373524652091073328010339247441190829942681603868715119853476664408000985178486099950604898508818114417290716928032563712249048916564099547601305602612863119298108534970112021127764736220356358144000131859491706368939839406086306980946973936084058112227252633414661500592128059754327776137906487296010830873052871398195200012106931468691178520576629428514626908258304127697198887810102766901345
Technical details
Node id
n-e64fc2aef53d02bf · revision 0 · JSON
Definition source
derived:theta_plus_one_squared
Fingerprint
f6-33fb9c1876220e09

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:             361,             2128,              1764;
  1:            6859,            60648,            100548,              43904;
  2:          130321,          1536416,           3820824,            3336704,             960400;
  3:         2476099,         36489880,         120992760,          158493440,           91238000,           19361664;
  4:        47045881,        831969264,        3448293660,         6022750720,         5200566000,         2207229696,          368947264;
  5:       893871739,      18441985352,       91724611356,       200256461440,       230558426000,       146780774784,        49069986112,         6746464256;
  6:     16983563041,     400454539072,     2323690154352,      6087796427776,      8761220188000,      7436892589056,      3729318944512,      1025462566912,       119538913536;
  7:    322687697779,    8559715772664,    56764430913456,    173502198191616,    299633730429600,    317927158182144,    212571179837184,     87677049470976,     20441154214656,     2066104678400;
  8:   6131066257801,  180705110756240,  1348155234194580,   4709345379486720,   9488401463604000,  12081232010921472,  10097131042266240,   5552879799828480,   1941909650392320,   392559888896000,   34999813252096;
  9: 116490258898219, 3776736814805416, 31307160438518580, 123031648039090560, 283296557984748000, 420829581713764608, 422060077566728832, 290137969541038080, 135286372310664960, 41022508389632000, 7314960969688064, 583137384431616;
%F Formula
The row polynomials satisfy (361+(798*n+1330)*x+(196*n^2+784*n+784)*x^2)*P(n,x) = (6859+(15162*n+45486)*x+(3724*n^2+33516*n+63308)*x^2+(2744*n^2+16464*n+24696)*x^3)*P(n-1,x) for n >= 1, with P(0,x) = 361 + 2128*x + 1764*x^2.
%t Mathematica
P[0, x_] := 361 + 2128*x + 1764*x^2;
P[n_, x_] := P[n, x] = Expand[Together[((6859 + (15162*n + 45486)*x + (3724*n^2 + 33516*n + 63308)*x^2 + (2744*n^2 + 16464*n + 24696)*x^3)*P[n - 1, x])/(361 + (798*n + 1330)*x + (196*n^2 + 784*n + 784)*x^2)]];
Table[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N + 1)); v[1] = 361 + 2128*x + 1764*x^2; for(n = 1, N, my(i = n + 1); v[i] = ((6859 + (15162*n + 45486)*x + (3724*n^2 + 33516*n + 63308)*x^2 + (2744*n^2 + 16464*n + 24696)*x^3)*v[i - 1])/(361 + (798*n + 1330)*x + (196*n^2 + 784*n + 784)*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.