{"id":"n-e0aab31974c742da","revision":0,"first_index":0,"fingerprint":"f6-4b95b982ffc28ad9","name":"derivative of basis_map_A007318 of Triangle read by rows, T(n,k) = GegenbauerC(m,-n,-2) where m = k if k<n else 2*n-k, for n>=0 and 0<=k<=2n.","polytool_family":null,"interpretation":null,"rows_observed":15,"degree_pattern":"affine","degree_slope":2,"degree_intercept":-1,"palindromic":0,"gamma_positive":0,"nonnegative":1,"rr_by_factors":false,"rows":[[],["6","2"],["72","96","36","4"],["648","1512","1296","504","90","6"],["5184","17280","23328","16416","6480","1440","168","8"],["38880","168480","311040","319680","200880","79920","20160","3120","270","10"],["279936","1492992","3499200","4743360","4121280","2405376","961632","263520","48600","5760","396","12"],["1959552","12410496","35271936","59439744","66134880","51220512","28377216","11382336","3306744","687960","99792","9576","546","14"],["13436928","98537472","329204736","663634944","901393920","872653824","621395712","331174656","133156224","40400640","9180864","1536192","183456","14784","720","16"],["90699264","755827200","2902376448","6812522496","10934300160","12721411584","11098902528","7411585536","3833303616","1544080320","484475904","117790848","21936096","3066336","311040","21600","918","18"],["604661760","5643509760","24488801280","65605800960","121537013760","165274214400","170951316480","137538155520","87298041600","44084321280","17782934400","5730756480","1469819520","297561600","46889280","5624640","495720","30240","1140","20"],["3990767616","41237932032","199538380800","600832235520","1262080258560","1965120486912","2352779218944","2217832151040","1671965349120","1018415566080","504351733248","203683113216","67085029440","17968547520","3890177280","673909632","91972584","9658440","752400","40920","1386","22"],["26121388032","296042397696","1580343975936","5283776323584","12411287285760","21778949136384","29639431084032","32060496771072","28027160967168","20029219246080","11791166340096","5745408703488","2322502460928","778914081792","216258958080","49476075264","9256876992","1400395392","168477408","15729120","1097712","53856","1656","24"],["169789022208","2094064607232","12224809598976","44937494544384","116729952768000","227960627761152","347665032658944","424643392622592","422679158972928","347098676221440","237195264024576","135686058633216","65215186103808","26383400289792","8984669091840","2571101305344","616044727584","122871352032","20225956608","2714437440","291891600","24525072","1550016","69264","1950","26"],["1097098297344","14627977297920","92704806125568","371611573272576","1057785608355840","2275625668313088","3845136524156928","5235796654792704","5849415753172992","5431257357926400","4230630708175872","2783185582334976","1553572173404160","737991236763648","298763879500800","103080947493888","30269664157824","7543412997120","1588061547072","280553232960","41207310144","4967778816","482829984","36874656","2129400","87360","2268","28"]],"degrees":[-1,1,3,5,7,9,11,13,15,17,19,21,23,25,27],"row_sums":["0","8","208","4056","70304","1142440","17822064","270301304","4015905088","58732611912","848359949840","12131547282712","172047397827552","2423000852738024","33922011938332336"],"nonn":true,"definitions":[{"position":0,"source":"derived:derivative","source_kind":"derived","equality_edge_id":null,"recurrence":{"first_index":0,"initial_polynomials":[["0"],["6","2"]],"recurrence":{"denominator":{"coeffs":[["-1"],["1"]]},"terms":[{"coeff":{"coeffs":[["0","0","0"],["6","6","1"]]},"deriv_order":0,"offset":1,"sign":"none"}]},"schema":"polytool.recurrence.v1"}}],"properties":[{"id":187014,"position":0,"claim":"real_rooted","from_index":0,"region_key":"(-inf, 0]","provenance":"edges","claim_data":{"claim":"real_rooted","from_index":0,"region":{"upper":{"closed":true,"value":"0"}}},"label":"Real-rooted","description":"Every row P_n, n >= 0, is zero or real-rooted with all roots in (-inf, 0]","region_exact":null,"edges":["e-d27afe8ef6c8cd8c"]},{"id":187015,"position":1,"claim":"one_signed_coefficients","from_index":0,"region_key":null,"provenance":"derived_from_edges","claim_data":{"alternating":false,"claim":"one_signed_coefficients","from_index":0},"label":"Coefficients of one sign","description":"Every nonzero row, n >= 0: the coefficients of P_n have one sign","region_exact":null,"edges":["e-d27afe8ef6c8cd8c"]},{"id":187016,"position":2,"claim":"hadamard_kernel","from_index":0,"region_key":null,"provenance":"derived_from_edges","claim_data":{"claim":"hadamard_kernel","from_index":0},"label":"Hadamard kernel (Malo)","description":"Rows P_n, n >= 0, are Hadamard kernels (preserve real-rootedness)","region_exact":null,"edges":["e-d27afe8ef6c8cd8c"]}],"region_exact":{},"incoming_edges":[{"id":"e-d27afe8ef6c8cd8c","operation":{"index_shift":0,"operation":"preserver_image","operator":"{\"shape\":\"derivative_polynomial\",\"coefficients\":[{\"numerator\":[\"0\"],\"denominator\":[\"1\"]},{\"numerator\":[\"1\"],\"denominator\":[\"1\"]}]}"},"operation_detail":"derivative_polynomial, shift 0","conclusion_id":"n-e0aab31974c742da","premise_count":1,"theorem":"Laguerre's theorem on differential operators: if phi is a real polynomial with only real roots, then phi(D) maps every real-rooted polynomial to a real-rooted polynomial or zero (write phi(D) = C D^j prod (1 + c_i D); D preserves real-rootedness by Rolle's theorem and p + c p' is real-rooted for every real c by Rolle's theorem applied to e^(x/c) p; Polya--Schur 1914); when the coefficients of phi have one sign, coefficients of one sign stay of one sign; applied to phi(n, .) for each n","lean_route":null,"lean_declarations":["RealRooted.splits_add_C_mul_derivative_all","RealRooted.splits_C_mul_add_derivative","Polynomial.Splits.derivative"],"certificate_hash":"814474749c4134572f16d2b13887250cb6436a84e774a9eabf20e35c78b95e97","verification_polytool":"replayed","verification_lean":"not_attempted","claims":[{"claim":"real_rooted","from_index":0,"region":{"upper":{"closed":true,"value":"0"}}}],"premises":[{"position":0,"node_id":"n-351cbe3ca6567d98","role":"sequence","name":"basis_map_A007318 of Triangle read by rows, T(n,k) = GegenbauerC(m,-n,-2) where m = k if k<n else 2*n-k, for n>=0 and 0<=k<=2n.","uses":{"claim":"real_rooted","from_index":0,"region":{"upper":{"closed":true,"value":"0"}}},"uses_text":"Every row P_n, n >= 0, is zero or real-rooted with all roots in (-inf, 0]"}]}],"used_by":[],"used_by_total":0,"links":[],"oeis":[],"bfiles":[],"oeis_texts":[{"oeis_id":"","target":"node","first_row":0,"oeis_offset":0,"reversed":false,"trim_zeros":"none","regular_triangle":false,"rows_shown":10,"polytool_commit":"c48629374597092cc41ef4d6273f37991516f984","triangle_example":"Triangle begins:\n  0:        0;\n  1:        6,         2;\n  2:       72,        96,         36,          4;\n  3:      648,      1512,       1296,        504,          90,           6;\n  4:     5184,     17280,      23328,      16416,        6480,        1440,         168,          8;\n  5:    38880,    168480,     311040,     319680,      200880,       79920,       20160,       3120,        270,         10;\n  6:   279936,   1492992,    3499200,    4743360,     4121280,     2405376,      961632,     263520,      48600,       5760,       396,        12;\n  7:  1959552,  12410496,   35271936,   59439744,    66134880,    51220512,    28377216,   11382336,    3306744,     687960,     99792,      9576,      546,      14;\n  8: 13436928,  98537472,  329204736,  663634944,   901393920,   872653824,   621395712,  331174656,  133156224,   40400640,   9180864,   1536192,   183456,   14784,    720,    16;\n  9: 90699264, 755827200, 2902376448, 6812522496, 10934300160, 12721411584, 11098902528, 7411585536, 3833303616, 1544080320, 484475904, 117790848, 21936096, 3066336, 311040, 21600, 918, 18;\n","recurrence_sentence":"The row polynomials satisfy (n-1)*P(n,x) = (6*n+6*n*x+n*x^2)*P(n-1,x) for n >= 2, with P(0,x) = 0, P(1,x) = 6 + 2*x.","mathematica":"P[0, x_] := 0;\nP[1, x_] := 6 + 2*x;\nP[n_, x_] := P[n, x] = Expand[Together[((6*n + 6*n*x + n*x^2)*P[n - 1, x])/(n - 1)]];\nTable[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten","pari":"P(N) = {my(v = vector(N + 1)); v[1] = 0; v[2] = 6 + 2*x; for(n = 2, N, my(i = n + 1); v[i] = ((6*n + 6*n*x + n*x^2)*v[i - 1])/(n - 1)); v};\nrow(n, p) = {my(c = Vecrev(p)); c};\nT(N) = {my(v = P(N)); concat(vector(#v, i, row(i - 1, v[i])))};\nT(9)","reading":{"first_row":0,"offset":0,"reversed":false,"trim_zeros":"none","regular_triangle":false}}],"derivation":{"root":"n-d3c3090977105807","steps":["x \u21a6 x+1","D"],"edges":["e-33933faab90bc4be","e-d27afe8ef6c8cd8c"],"text":"A272867 \u2192 x \u21a6 x+1 \u2192 D"},"headline":"A272867 \u2192 x \u21a6 x+1 \u2192 D","chain":null}
