A139548 → θ+1

nonnegative coefficientsonly rational roots

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

Recurrence

\(\left(1 - x + 2\,n x\right)\,P_{n}(x) = \left(2 + 6\,x + 6\,x^{2} + 2\,x^{3} + 4\,n x + 8\,n x^{2} + 4\,n x^{3}\right)\,P_{n-1}(x)\)
\(P_{0}(x) = 1\)

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13x14x15x16x17x18x19x20x21x22x23x24x25x26x27x28Pn(1)
011
128616
2432726420192
3896360640600288562048
41625613443584560053763136102414420480
53264043201536033600483844704030720129603200352196608
664153612672563201584003041284139524055042851201408004646492168321835008
712835843494418636864064015375362690688351436834594562562560140940855910415142425088192016777216
82568192921605734402329600670924814350336234291202965248029286400225505281341849660569602007040460800655364352150994944
95121843223500816711687833600263208966653337613035110420163686424893440024644505619552665612356198461415424235008006684672133171216588897281342177280
1010244096058368046694402480640095256576277831680635043840116093952017199104002081091584206389248016769126401111326720595353600254017536843417602101248036966404096002150411811160064
1120489011214192641261568074905600323592192106965196827941928965894000640101871616001456764108817336696832172163031041426202624098233344005588385792259772620897077657628464128063078400993484899123247104103079215104
1240961966083391488331612162176204801044578304385913651211341135872271124029445355536384088366350336122690469888143990898688143138881536120499568640856885821445121231667225517555712104747991043481927680914006016182386688260014082359296102400893353197568
138192425984798720085196800612352000323321856013202309120431095808001151834112002559631360004786510643207595124326401028506419200119282401280011867381760001012683243520739733463040460733644800243164979200107773952000396069273601185513472028168192005111808006656000055377922211847696581394432
141638491750418579456214695936167731200096613171204320755712015519449088045830873088011316264960002365099376640422199558144064795904409608588332892160985905561600098152375910408473310576640633299337216040851716505602263252992000106938703872042678484992014196768768038645268480838656000013955235841672151041284505647513665970697666560
Technical details
Node id
n-0f474f59a27a747e · revision 0 · JSON
Definition source
derived:theta_plus_one
Fingerprint
f6-c94e3f620e523ccf

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 ℚ): yes

Matches ?

No OEIS matches.

Submission text ?

Atlas rows n = 0, …, ascending powers of x
%e Example
Triangle begins:
  0:   1;
  1:   2,     8,      6;
  2:   4,    32,     72,      64,      20;
  3:   8,    96,    360,     640,     600,      288,       56;
  4:  16,   256,   1344,    3584,    5600,     5376,     3136,      1024,       144;
  5:  32,   640,   4320,   15360,   33600,    48384,    47040,     30720,     12960,      3200,       352;
  6:  64,  1536,  12672,   56320,  158400,   304128,   413952,    405504,    285120,    140800,     46464,      9216,       832;
  7: 128,  3584,  34944,  186368,  640640,  1537536,  2690688,   3514368,   3459456,   2562560,   1409408,    559104,    151424,    25088,     1920;
  8: 256,  8192,  92160,  573440, 2329600,  6709248, 14350336,  23429120,  29652480,  29286400,  22550528,  13418496,   6056960,  2007040,   460800,   65536,    4352;
  9: 512, 18432, 235008, 1671168, 7833600, 26320896, 66533376, 130351104, 201636864, 248934400, 246445056, 195526656, 123561984, 61415424, 23500800, 6684672, 1331712, 165888, 9728;
%F Formula
The row polynomials satisfy (1+(2*n-1)*x)*P(n,x) = (2+(4*n+6)*x+(8*n+6)*x^2+(4*n+2)*x^3)*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[((2 + (4*n + 6)*x + (8*n + 6)*x^2 + (4*n + 2)*x^3)*P[n - 1, x])/(1 + (2*n - 1)*x)]];
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] = ((2 + (4*n + 6)*x + (8*n + 6)*x^2 + (4*n + 2)*x^3)*v[i - 1])/(1 + (2*n - 1)*x)); 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

Same fingerprint ?

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.