basis-map coefficients of A021012 → basis A008277 → D

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

Recurrence

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

Rows ?

nx0x1x2x3x4x5x6x7x8x9x10x11x12x13Pn(1)
10
2-1-1
36410
4-42-72-18-132
53601200720962376
6-3720-21600-23400-7200-600-56520
7453604334407560004032007560043201717920
8-640080-9737280-25719120-21168000-6703200-846720-35280-64849680
9102816002439360009398592001121057280533433600111767040101606403225602970817920
10-185431680-6771340800-37128067200-61725888000-41417308800-12802406400-1905120000-130636800-3265920-162069465600
11371226240020684885760015866928000003581335296000325661212800013931761536003017710080003353011200017962560003628800010365511161600
12-81709689600-6907682073600-73227489350400-220244935680000-264179760768000-150261843916800-44434942675200-7113173760000-612523296000-26345088000-439084800-767090845382400
13196151155200025063758720000036392577661440001438633597040640022324616810496000164261834440704006369420311654400137761626562560016953064128000011644528896000410983372800574801920064957621568716800
14-51005527372800-9825865201152000-194128836789888000-998192306022912000-1975098070737792000-1843046715654144000-911550161313792000-255812490565632000-42186621251174400-4113943561728000-230630169369600-6799906713600-80951270400-6234243527652940800
1514282419447296004141144932148224001107755802945792000073497199708348416000183376603297375488000213800225722501017600132196714422829056000468171763922903040009935173701573120000128978363907993600010210059930470400047599346995200001189983674880001220496076800672512958401482598400
Technical details
Node id
n-9c06e18062eecdb1 · revision 0 · JSON
Definition source
derived:derivative
Fingerprint
f6-90c2a235bbf6b62e

Observed on the stored rows ?

  • Degrees: -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 (affine: slope 1, intercept -2)
  • Palindromic rows: no
  • γ-positive (gamma_positive): no
  • Nonnegative coefficients (nonn): no
  • 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 Example
Triangle begins:
   1:          0;
   2:         -1;
   3:          6,           4;
   4:        -42,         -72,          -18;
   5:        360,        1200,          720,           96;
   6:      -3720,      -21600,       -23400,        -7200,         -600;
   7:      45360,      433440,       756000,       403200,        75600,         4320;
   8:    -640080,    -9737280,    -25719120,    -21168000,     -6703200,      -846720,      -35280;
   9:   10281600,   243936000,    939859200,   1121057280,    533433600,    111767040,    10160640,     322560;
  10: -185431680, -6771340800, -37128067200, -61725888000, -41417308800, -12802406400, -1905120000, -130636800, -3265920;
%F Formula
The row polynomials satisfy P(n,x) = -(2*n^2-6*n+4+(2*n^2-6*n+4)*x+(n^2-3*n+2)*x^2)*P(n-2,x) - ((n^2-3*n+2)*x+(n^2-3*n+2)*x^2)*d/dx P(n-2,x) - (3*n-3+(2*n-2)*x)*P(n-1,x) - (n-1)*x*d/dx P(n-1,x) for n >= 3, with P(1,x) = 0, P(2,x) = -1.
%t Mathematica
P[1, x_] := 0;
P[2, x_] := -1;
P[n_, x_] := P[n, x] = Expand[-(2*n^2 - 6*n + 4 + (2*n^2 - 6*n + 4)*x + (n^2 - 3*n + 2)*x^2)*P[n - 2, x] - ((n^2 - 3*n + 2)*x + (n^2 - 3*n + 2)*x^2)*D[P[n - 2, x], x] - (3*n - 3 + (2*n - 2)*x)*P[n - 1, x] - (n - 1)*x*D[P[n - 1, x], x]];
Table[CoefficientList[P[n, x], x], {n, 1, 10}] // Flatten
%o PARI/GP
P(N) = {my(v = vector(N)); v[1] = 0; v[2] = -1; for(n = 3, N, my(i = n); v[i] = -(2*n^2 - 6*n + 4 + (2*n^2 - 6*n + 4)*x + (n^2 - 3*n + 2)*x^2)*v[i - 2] - ((n^2 - 3*n + 2)*x + (n^2 - 3*n + 2)*x^2)*deriv(v[i - 2], x) - (3*n - 3 + (2*n - 2)*x)*v[i - 1] - (n - 1)*x*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

Proof chains ? JSON

Same fingerprint ?

References

  1. [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
  2. [SP14] J Schur and G Polya. Über zwei Arten von Faktorenfolgen in der Theorie der algebraischen Gleichungen. J. Reine Angew. Math., 1914.