A316649 → basis A007318

nonnegative coefficients

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

Recurrence

\(\left(-2\,n + n^{2}\right)\,P_{n}(x) = \left(-8 - 8\,x - 2\,x^{2} + 12\,n + 12\,n x + 3\,n x^{2} - 4\,n^{2} - 4\,n^{2} x - n^{2} x^{2}\right)\,P_{n-2}(x) + \left(12 + 14\,x + 4\,x^{2} - 30\,n - 35\,n x - 10\,n x^{2} + 12\,n^{2} + 14\,n^{2} x + 4\,n^{2} x^{2}\right)\,P_{n-1}(x)\)
\(P_{0}(x) = 1\)
\(P_{1}(x) = 3 + 5\,x + 2\,x^{2}\)
\(P_{2}(x) = 26 + 75\,x + 79\,x^{2} + 36\,x^{3} + 6\,x^{4}\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14x15x16x17x18x19x20x21x22x23x24x25x26x27x28Pn(1)
011
135210
2267579366222
3252103217311523742190205490
425681362031218404073232116370513091070142614
5269281753445089688675369619477253053767561331823067441582523811050
628764822204007796032164674802331257023308331168809358925714342048092673016854618480924103734270
7311289627787520114434384288220656496093796617421272573096675403113863215964092877117322658880258347308763488065234322860340850
8340133123446881921628462176476177172896470285521436046564416250282594142615365279811595521530993744422533794647420722541859323623427023643826643474901287079630179030
937441612842463296002263349836875344428032175555769376304080653856405817542480426726453216358446658899242349243437132215131006580713502602038434844656416299941204132072191268220212941301482910486202233305679050
104145895936520245665283087868930561152772998912303608666054459970074395209218823584832112947943983841120257187093890844095592116056536358159332583919052015017791704305546369528701659148190703958573647673570805881026577266101183082628170418475663004207402782
11461278402566345192960004149995468544171695020531205042829606336011185502192947219459054722672027216753702364831123493845038029431781214500023186116030406715280698476879584366971296818389735715887701500308640597047781637189261244906727480260965159104429435553305342261730472353908264537007054321785938892796530
1251526854451277098953984005508812940748825015396132531281054899983411219945507619600643873246845709120608874691236873678857724136754648518959995691684774244876125659459535730863687753885928571075201215529083474013410148189817191144043770638942321356110762377803795286517536887563967811321636626753762241607915406271138667802173553564110870396270415650825958456827286
135775088103424933834801930247236926377144323578312423264256126784004170928643427236569561164873480487178371328128239317280402944185516962200910032225381459607117968232114040321488248203993585480812848153670794617219019994812115070680975539168374244932826507480019763554108753424834472443808777038265012113124909505581628231210826174458436637235482985321176886213187987389361347957282289882858132462826700104006001451296386222169770
14649121648885761127993351270400942338171734425650395315119212544193814901309998592570889471661812992133930621780665216025692383134553541124105849852587651168554051611787992718463763841471383173126304583833672629960538366490293857516239845607288241520432561304419183044999143095774547734144669439986414977256029211309313239887610615699158031796433155769721369152883569096183430819893106364088103733440701414585733514534545270184561058566585875361004448559490019255968004011660041559171377180711742
Technical details
Node id
n-451dfe842bdfe4bd · revision 0 · JSON
Definition source
derived:basis_map_A007318
Fingerprint
f6-fbcf47e112a39ff9

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:         3,          5,           2;
  2:        26,         75,          79,          36,            6;
  3:       252,       1032,        1731,        1523,          742,          190,           20;
  4:      2568,      13620,       31218,       40407,        32321,        16370,         5130,          910,           70;
  5:     26928,     175344,      508968,      867536,       961947,       725305,       376756,       133182,        30674,         4158,          252;
  6:    287648,    2220400,     7796032,    16467480,     23312570,     23308331,     16880935,      8925714,      3420480,       926730,       168546,       18480,         924;
  7:   3112896,   27787520,   114434384,   288220656,    496093796,    617421272,    573096675,    403113863,    215964092,     87711732,     26588802,     5834730,      876348,      80652,       3432;
  8:  34013312,  344688192,  1628462176,  4761771728,   9647028552,  14360465644,  16250282594,  14261536527,   9811595521,   5309937444,   2253379464,   742072254,   185932362,   34270236,    4382664,    347490,    12870;
  9: 374416128, 4246329600, 22633498368, 75344428032, 175555769376, 304080653856, 405817542480, 426726453216, 358446658899, 242349243437, 132215131006, 58071350260, 20384348446, 5641629994, 1204132072, 191268220, 21294130, 1482910, 48620;
%F Formula
The row polynomials satisfy (n^2-2*n)*P(n,x) = -(4*n^2-12*n+8+(4*n^2-12*n+8)*x+(n^2-3*n+2)*x^2)*P(n-2,x) + (12*n^2-30*n+12+(14*n^2-35*n+14)*x+(4*n^2-10*n+4)*x^2)*P(n-1,x) for n >= 3, with P(0,x) = 1, P(1,x) = 3 + 5*x + 2*x^2, P(2,x) = 26 + 75*x + 79*x^2 + 36*x^3 + 6*x^4.
%t Mathematica
P[0, x_] := 1;
P[1, x_] := 3 + 5*x + 2*x^2;
P[2, x_] := 26 + 75*x + 79*x^2 + 36*x^3 + 6*x^4;
P[n_, x_] := P[n, x] = Expand[Together[(-(4*n^2 - 12*n + 8 + (4*n^2 - 12*n + 8)*x + (n^2 - 3*n + 2)*x^2)*P[n - 2, x] + (12*n^2 - 30*n + 12 + (14*n^2 - 35*n + 14)*x + (4*n^2 - 10*n + 4)*x^2)*P[n - 1, x])/(n^2 - 2*n)]];
Table[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N + 1)); v[1] = 1; v[2] = 3 + 5*x + 2*x^2; v[3] = 26 + 75*x + 79*x^2 + 36*x^3 + 6*x^4; for(n = 3, N, my(i = n + 1); v[i] = (-(4*n^2 - 12*n + 8 + (4*n^2 - 12*n + 8)*x + (n^2 - 3*n + 2)*x^2)*v[i - 2] + (12*n^2 - 30*n + 12 + (14*n^2 - 35*n + 14)*x + (4*n^2 - 10*n + 4)*x^2)*v[i - 1])/(n^2 - 2*n)); 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. [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