A038321 → basis A013610 → (θ+1)²

nonnegative coefficients

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

Recurrence

\(\left(36 + 210\,x + 196\,x^{2} + 126\,n x + 196\,n x^{2} + 49\,n^{2} x^{2}\right)\,P_{n}(x) = \left(648 + 6804\,x + 14994\,x^{2} + 9261\,x^{3} + 2268\,n x + 7938\,n x^{2} + 6174\,n x^{3} + 882\,n^{2} x^{2} + 1029\,n^{2} x^{3}\right)\,P_{n-1}(x)\)
\(P_{0}(x) = 324 + 3024\,x + 3969\,x^{2}\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14x15x16Pn(1)
0324302439697317
1583281648214326148176449982
21049761959552771573610668672486202525310961
31889568440899202314720804800902404375822501470276361342151694
4340122249523422726249746160172832486402362944150015878984688420253992968230315413
56122200321999918771215749360323254442233216099243654300010003760353445295200310541152696666243360129619158
611019960576411411861504377984647756815679363166208357277155480004801804969651238125442235888165988319938563063651608241161415332548353
71983592903688331090195456874764470522884233428054876161157577983755200194473101270873620587738807379521344505391502336496311560535042794280046581007600676535923094
835704672266241666218039091201968220058676480108859578553958403472733951265600070010316457514496926448246332078408067032349014016044668040448153780142970408384580002018265598362321352060521163700661
964268410079232329911171740057643300841290882560269427456921047040982287603357984000231034044309797836836687350554750304643993181012761937920294809066957814948014154070430073420003996165884757395585043996007807982416084190054171651022
101156831381426176647825573598658569352981718830632966466258966105128960265217652906655680007129050510130904678413207446199710109670417250541975131571814415919689615722007192010190930709652862400043158591555379872264108950313768652419841243134849424342329726262609702539066417
112082296486567116812632598685173841921989634292914880102415131045980686001766468956589755730476800020852472742132896184324415060586760236661248672771137030131300761674504147401578993658565961694465146924504000336637014131963003659212747186710932333121282908935547652961049863027658603686741435632464444172921386667262
1237481336758208102424487806682029293568417823201512124821504346638507921170222284817377060618444080153600583869236779721093160961390744084829474548293122421976093308472682741763129174190866317733659523004694010434049950016002120813189031366923052961070763683718315982187523665258790042730922823676296996812905884177127298819848173394532251438501749982524646982901
1367466406164774584324722648431534220902408677866492944130908160779936642822633000140804265278515436274219520001576446939305246951534592417223225448842364487936081741693149160953042534401206967187905579697268672013521123046953224775072000114523912207693813844859847227654865098632879765760329873291103845783054124010300094569742294363911201970681359006816523707501743931355723563066905663250617731860011215072934
14121439531096594251776906748498854570413260817851611071199355011072017278596394839869541580801023666843704705812684800041274247138173738367451136120160288929266600972525568261573418077315049736110080434508187646008691016721920556297633931789819317248000549714778596930306455327232416312920229681253874507776237508769594768963798969280988809078695260258935475202837781156969815794138800050225223044838616326881284134343514799337598847692762197153350885083695870593
Technical details
Node id
n-88426f8cec0f73a5 · revision 0 · JSON
Definition source
derived:theta_plus_one_squared
Fingerprint
f6-d8ab6700f3e17b80

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:            324,             3024,              3969;
  1:           5832,            81648,            214326,             148176;
  2:         104976,          1959552,           7715736,           10668672,            4862025;
  3:        1889568,         44089920,         231472080,          480090240,          437582250,           147027636;
  4:       34012224,        952342272,        6249746160,        17283248640,        23629441500,         15878984688,          4202539929;
  5:      612220032,      19999187712,      157493603232,       544422332160,       992436543000,       1000376035344,        529520031054,        115269666624;
  6:    11019960576,     411411861504,     3779846477568,     15679363166208,     35727715548000,      48018049696512,      38125442235888,      16598831993856,       3063651608241;
  7:   198359290368,    8331090195456,    87476447052288,    423342805487616,   1157577983755200,    1944731012708736,    2058773880737952,    1344505391502336,     496311560535042,      79428004658100;
  8:  3570467226624,  166621803909120,  1968220058676480,  10885957855395840,  34727339512656000,   70010316457514496,   92644824633207840,   80670323490140160,   44668040448153780,   14297040838458000,   2018265598362321;
  9: 64268410079232, 3299111717400576, 43300841290882560, 269427456921047040, 982287603357984000, 2310340443097978368, 3668735055475030464, 3993181012761937920, 2948090669578149480, 1415407043007342000, 399616588475739558, 50439960078079824;
%F Formula
The row polynomials satisfy (36+(126*n+210)*x+(49*n^2+196*n+196)*x^2)*P(n,x) = (648+(2268*n+6804)*x+(882*n^2+7938*n+14994)*x^2+(1029*n^2+6174*n+9261)*x^3)*P(n-1,x) for n >= 1, with P(0,x) = 324 + 3024*x + 3969*x^2.
%t Mathematica
P[0, x_] := 324 + 3024*x + 3969*x^2;
P[n_, x_] := P[n, x] = Expand[Together[((648 + (2268*n + 6804)*x + (882*n^2 + 7938*n + 14994)*x^2 + (1029*n^2 + 6174*n + 9261)*x^3)*P[n - 1, x])/(36 + (126*n + 210)*x + (49*n^2 + 196*n + 196)*x^2)]];
Table[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N + 1)); v[1] = 324 + 3024*x + 3969*x^2; for(n = 1, N, my(i = n + 1); v[i] = ((648 + (2268*n + 6804)*x + (882*n^2 + 7938*n + 14994)*x^2 + (1029*n^2 + 6174*n + 9261)*x^3)*v[i - 1])/(36 + (126*n + 210)*x + (49*n^2 + 196*n + 196)*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.