A019538 → (θ+1)²
nonnegative coefficients
Proved for all n all roots real, in (−∞, 0]coefficients of one signHadamard kernel
Recurrence
\(P_{n}(x) = \left(-8\,x + 22\,x^{2}\right)\,P_{n-2}(x) + \left(-2\,x + 26\,x^{3}\right)\,P_{n-2}'(x) + \left(-x^{2} + 4\,x^{3} + 5\,x^{4}\right)\,P_{n-2}''(x) + \left(1 + 8\,x\right)\,P_{n-1}(x) + \left(2\,x - 4\,x^{2}\right)\,P_{n-1}'(x)\)
\(P_{1}(x) = 1\)
\(P_{2}(x) = 1 + 8\,x\)
Rows ?
| n | x0 | x1 | x2 | x3 | x4 | x5 | x6 | x7 | x8 | x9 | x10 | x11 | x12 | x13 | x14 | Pn(1) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 1 | 1 | ||||||||||||||
| 2 | 1 | 8 | 9 | |||||||||||||
| 3 | 1 | 24 | 54 | 79 | ||||||||||||
| 4 | 1 | 56 | 324 | 384 | 765 | |||||||||||
| 5 | 1 | 120 | 1350 | 3840 | 3000 | 8311 | ||||||||||
| 6 | 1 | 248 | 4860 | 24960 | 45000 | 25920 | 100989 | |||||||||
| 7 | 1 | 504 | 16254 | 134400 | 420000 | 544320 | 246960 | 1362439 | ||||||||
| 8 | 1 | 1016 | 52164 | 653184 | 3150000 | 6894720 | 6914880 | 2580480 | 20246445 | |||||||
| 9 | 1 | 2040 | 163350 | 2983680 | 20853000 | 68584320 | 114095520 | 92897280 | 29393280 | 328972471 | ||||||
| 10 | 1 | 4088 | 503820 | 13096320 | 127575000 | 591675840 | 1452124800 | 1935360000 | 1322697600 | 362880000 | 5805917469 | |||||
| 11 | 1 | 8184 | 1539054 | 55968000 | 740190000 | 4652303040 | 15802229520 | 30656102400 | 33949238400 | 19958400000 | 4829932800 | 110645911399 | ||||
| 12 | 1 | 16376 | 4672404 | 234816384 | 4138200000 | 34309059840 | 154941716160 | 410365992960 | 654735312000 | 618710400000 | 318775564800 | 68976230400 | 2265191981325 | |||
| 13 | 1 | 32760 | 14127750 | 972491520 | 22525503000 | 241608407040 | 1411481111040 | 4901910773760 | 10566942946560 | 14270256000000 | 11741566636800 | 5380145971200 | 1052366515200 | 49589790516631 | ||
| 14 | 1 | 65528 | 42604380 | 3990430080 | 120225105000 | 1644270788160 | 12182358988800 | 53963823513600 | 150938313926400 | 273158645760000 | 319094340364800 | 232242967756800 | 95765352883200 | 17086945075200 | 1156201277261949 | |
| 15 | 1 | 131064 | 128255454 | 16264684800 | 632300760000 | 10904369636160 | 100942759597680 | 559003808563200 | 1973126502547200 | 4595022432000000 | 7145779319078400 | 7343899250688000 | 4788267644160000 | 1794129232896000 | 294226732800000 | 28605950745797959 |
Compute more
?
Technical details
- Node id
n-be6f49875ee2b6af· revision 0 · JSON- Definition source
derived:theta_plus_one_squared- Fingerprint
f6-c70146f291298cbd
Observed on the stored rows ?
- Degrees: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 (affine: slope 1, intercept -1)
- 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 = 1, …, ascending powers of x
%e ExampleTriangle begins: 1: 1; 2: 1, 8; 3: 1, 24, 54; 4: 1, 56, 324, 384; 5: 1, 120, 1350, 3840, 3000; 6: 1, 248, 4860, 24960, 45000, 25920; 7: 1, 504, 16254, 134400, 420000, 544320, 246960; 8: 1, 1016, 52164, 653184, 3150000, 6894720, 6914880, 2580480; 9: 1, 2040, 163350, 2983680, 20853000, 68584320, 114095520, 92897280, 29393280; 10: 1, 4088, 503820, 13096320, 127575000, 591675840, 1452124800, 1935360000, 1322697600, 362880000;
%F FormulaThe row polynomials satisfy P(n,x) = -(8*x-22*x^2)*P(n-2,x) - (2*x-26*x^3)*d/dx P(n-2,x) - (x^2-4*x^3-5*x^4)*d^2/dx^2 P(n-2,x) + (1+8*x)*P(n-1,x) + (2*x-4*x^2)*d/dx P(n-1,x) for n >= 3, with P(1,x) = 1, P(2,x) = 1 + 8*x.
%t MathematicaP[1, x_] := 1;
P[2, x_] := 1 + 8*x;
P[n_, x_] := P[n, x] = Expand[-(8*x - 22*x^2)*P[n - 2, x] - (2*x - 26*x^3)*D[P[n - 2, x], x] - (x^2 - 4*x^3 - 5*x^4)*D[P[n - 2, x], {x, 2}] + (1 + 8*x)*P[n - 1, x] + (2*x - 4*x^2)*D[P[n - 1, x], x]];
Table[CoefficientList[P[n, x], x], {n, 1, 10}] // Flatten%o PARI/GPP(N) = {my(v = vector(N)); v[1] = 1; v[2] = 1 + 8*x; for(n = 3, N, my(i = n); v[i] = -(8*x - 22*x^2)*v[i - 2] - (2*x - 26*x^3)*deriv(v[i - 2], x) - (x^2 - 4*x^3 - 5*x^4)*deriv(deriv(v[i - 2], x), x) + (1 + 8*x)*v[i - 1] + (2*x - 4*x^2)*deriv(v[i - 1], x)); v};
row(n, p) = {my(c = Vecrev(p)); c};
T(N) = {my(v = P(N)); concat(vector(#v, i, row(i, v[i])))};
T(10)polytool c48629374597
Properties
- Real-rooted? Every row P_n, n ≥ 1, is zero or real-rooted with all roots in (−∞, 0]
-
Coefficients of one sign?
Every nonzero row, n ≥ 1: the coefficients of P_n have one sign
derived from Laguerre’s theorem on multiplier sequences
-
Hadamard kernel (Malo)?
Rows P_n, n ≥ 1, are Hadamard kernels (preserve real-rootedness)
derived from Laguerre’s theorem on multiplier sequences
Proof chains ? JSON
-
Laguerre’s theorem on multiplier sequences [SP14; Bra15, Thm 7.1 of arXiv:1410.6601] polytool ? step ›
-
from
Triangle of numbers T(n,k) = k!*Stirling2(n,k) read by rows (n >= 1, 1 <= k <= n).?
-
Ma–Wang interval theorem [MW08, Thm 2, Cor 3] RealRooted RealRooted.affineEndpointStep_closed ? step › direct check
-
Ma–Wang interval theorem [MW08, Thm 2, Cor 3] RealRooted RealRooted.affineEndpointStep_closed ? step › direct check
-
Affine, reversal and Möbius substitutions (elementary) polytool ? step ›
-
from
shift_x_plus_one of eulerian?
-
Affine, reversal and Möbius substitutions (elementary) polytool ? step ›
-
Affine, reversal and Möbius substitutions (elementary) polytool ? step ›
-
-
from
shift_x_plus_one of eulerian?
- ↑ Iterated real-rootedness preservers (above)
- ↑ Parent-row provers of polytool (above)
- ↑ Iterated real-rootedness preservers (above)
- ↑ Parent-row provers of polytool (above)
- ↑ Affine, reversal and Möbius substitutions (elementary) (above)
- ↑ Affine, reversal and Möbius substitutions (elementary) (above)
-
-
from
Triangle of numbers T(n,k) = k!*Stirling2(n,k) read by rows (n >= 1, 1 <= k <= n).?
References
- [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
- [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
- [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
- [MW08] Shi-Mei Ma and Yi Wang. q-Eulerian polynomials and polynomials with only real zeros. The Electronic Journal of Combinatorics, 15(1):Research Paper 17, January 2008. doi:10.37236/741
- [SP14] J Schur and G Polya. Über zwei Arten von Faktorenfolgen in der Theorie der algebraischen Gleichungen. J. Reine Angew. Math., 1914.