{"id":"n-6a7de36842666def","revision":0,"first_index":0,"fingerprint":"f6-238fadf8fd88f70e","name":"theta_plus_one_squared of basis_map_A013610 of Triangle whose (i,j)-th entry is binomial(i,j)*12^(i-j)*9^j.","polytool_family":null,"interpretation":null,"rows_observed":15,"degree_pattern":"affine","degree_slope":1,"degree_intercept":0,"palindromic":0,"gamma_positive":0,"nonnegative":1,"rr_by_factors":false,"rows":[["1"],["21","108"],["441","4536","6561"],["9261","142884","413343","314928"],["194481","4000752","17360406","26453952","13286025"],["4084101","105019740","607614210","1388832480","1395032625","516560652"],["85766121","2646497448","19139847615","58330964160","87887055375","65086642152","18983603961"],["1801088541","64839187476","562711519881","2143662932880","4306465713375","4783868198172","2790589782267","669462604992"],["37822859361","1556140499424","15755922556668","72027074544768","180871559961750","267896619097632","234409541710428","112469717638656","22876792454961"],["794280046581","36763819298892","425409909030036","2268852848160192","6836944966554150","12658115252363112","14767801127756964","10628388316852992","4323713773987629","762559748498700"],["16679880978201","857822450307480","11167010112038445","68065585444805760","239293073829395250","531640840599250704","775309559207240610","743987182179709440","453989946268701045","160137547184727000","24912826983452529"],["350277500542221","19815698602102788","286619926208986755","1965393779718766320","7896671436370043250","20468172363071152104","35819301635374516182","42965259770878220160","34957225862689980465","18495886699835968500","5754863033177534199","800504721583995312"],["7355827511386641","453959640702718416","7222822140466466226","55031025832125456960","248745150245656362375","736854205070561475744","1504410668685729679644","2165449092452262296064","2202305229349468769295","1553654482786221354000","725112742180369309074","201727189839166818624","25365993365192851449"],["154472377739119461","10327581825986843964","179257313122485934518","1502347005217024975008","7545269557451576325375","25145149748032910359764","58672016078743457506116","98527933706577934470912","120245865522480994803507","106036918450159607410500","65985259538413607125734","27535761413046270742176","6924916188697648445577","794300809991719348332"],["3243919932521508681","233562235141548625032","4391804171500905395691","40153638139436849332032","221830924989076343966025","821408225102408405085624","2156196590893822063349763","4138173215676273247778304","5892047410601568745371843","6234970804869384915737400","4849916576073400123741449","2698504618478534532733248","1017962679738554321499819","233524438137565488409608","24619272554590280822025"]],"degrees":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14],"row_sums":["1","129","11538","880416","61295616","4017143808","252160376832","15323401027584","907901191323648","52709344042549248","3009378074140606464","169430065205011808256","9426339917415434944512","519105477386138963410944","28333937005581190293356544"],"nonn":true,"definitions":[{"position":0,"source":"derived:theta_plus_one_squared","source_kind":"derived","equality_edge_id":null,"recurrence":{"first_index":0,"initial_polynomials":[["1"]],"recurrence":{"denominator":{"coeffs":[["49","-63","0"],["0","189","0"],["0","0","81"]]},"terms":[{"coeff":{"coeffs":[["1029","3969","5103","2187"],["0","3969","8505","4374"],["0","0","1701","2187"]]},"deriv_order":0,"offset":1,"sign":"none"}]},"schema":"polytool.recurrence.v1"}}],"properties":[{"id":193576,"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-4480afa2f14657c1"]},{"id":193577,"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-4480afa2f14657c1"]},{"id":193578,"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-4480afa2f14657c1"]},{"id":193579,"position":3,"claim":"interlacing","from_index":1,"region_key":null,"provenance":"edges","claim_data":{"claim":"interlacing","from_index":1,"kind":"weak","orientation":"unordered"},"label":"Interlacing of consecutive rows","description":"Rows P_(m-1), P_m interlace (weak, unordered) for every m >= 1","region_exact":null,"edges":["e-4480afa2f14657c1"]}],"region_exact":{},"incoming_edges":[{"id":"e-4480afa2f14657c1","operation":{"index_shift":0,"operation":"preserver_image","operator":"{\"shape\":\"euler_polynomial\",\"coefficients\":[{\"numerator\":[\"1\"],\"denominator\":[\"1\"]},{\"numerator\":[\"2\"],\"denominator\":[\"1\"]},{\"numerator\":[\"1\"],\"denominator\":[\"1\"]}]}"},"operation_detail":"euler_polynomial, shift 0","conclusion_id":"n-6a7de36842666def","premise_count":1,"theorem":"Laguerre's theorem on multiplier sequences: if f is a real polynomial whose roots are all real and <= 0, then (f(k))_(k >= 0) is a multiplier sequence, so x^k -> f(k) x^k maps every real-rooted polynomial to a real-rooted polynomial or zero (Laguerre; see T. Craven and G. Csordas, Multiplier sequences for fields, Illinois J. Math. 21 (1977); Polya--Schur, Theorem 40 of P. Branden, arXiv:1410.6601: sum_k f(k) x^k / k! = f(theta) e^x = C e^x x^m prod (1 + x/a_j), a_j > 0); f(k) has one sign for k >= 0, so coefficients of one sign stay of one sign; applied to f(n, .) for each n","lean_route":null,"lean_declarations":["RealRooted.isMultiplierSequence_eval_of_roots_nonpos","RealRooted.isPFMultiplierSequence_eval_of_roots_nonpos","RealRooted.isMultiplierSequence_iff_preserves"],"certificate_hash":"c1fb67878030865197cace610ae0020de0ecf1079970f52c1aa657c7064e8b34","verification_polytool":"replayed","verification_lean":"not_attempted","claims":[{"claim":"real_rooted","from_index":0,"region":{"upper":{"closed":true,"value":"0"}}},{"claim":"interlacing","from_index":1,"kind":"weak","orientation":"unordered"}],"premises":[{"position":0,"node_id":"n-504bafdebe53d9d7","role":"sequence","name":"basis_map_A013610 of Triangle whose (i,j)-th entry is binomial(i,j)*12^(i-j)*9^j.","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":[{"id":"l-99bc76190b7802a3","kind":"fingerprint_related","node_a_id":"n-6a7de36842666def","node_b_id":"n-e8a5f7233da60984","fingerprint":"f6-238fadf8fd88f70e","oeis_id":null,"in_catalog":null,"target":null,"row_alignment":null,"rows_matched":null,"oeis_nonn":null,"details":{"fingerprint":"f6-238fadf8fd88f70e"},"other_id":"n-e8a5f7233da60984","other":{"id":"n-e8a5f7233da60984","name":"theta_plus_one_squared of basis_map_A013610 of Triangle whose (i,j)-th entry is binomial(i,j)*8^(i-j)*6^j.","first_index":0,"fingerprint":"f6-238fadf8fd88f70e","polytool_family":null,"degree_pattern":"affine","palindromic":0,"gamma_positive":0,"nonnegative":1,"rr_by_factors":0,"preview_rows":[["196","2016","2916"],["2744","42336","122472","93312"],["38416","790272","3429216","5225472","2624400"]],"card_rows":[["196","2016","2916"],["2744","42336","122472","93312"],["38416","790272","3429216","5225472","2624400"],["537824","13829760","80015040","182891520","183708000","68024448"]],"row_sums_preview":["5128","260864","12107776","529006592","22137536512","896842858496","35424890257408","1371090999836672"],"regions":["(-inf, 0]"],"region_exact":{},"oeis_ids":[],"derivation":{"root":"n-c11cb6bca0e3e7dc","steps":["basis A013610","(\u03b8+1)\u00b2"],"edges":["e-89b2e37c644537dd","e-e568d80a5f81eb3b"],"text":"A038284 \u2192 basis A013610 \u2192 (\u03b8+1)\u00b2"},"headline":"A038284 \u2192 basis A013610 \u2192 (\u03b8+1)\u00b2","chain":null}}],"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:            1;\n  1:           21,            108;\n  2:          441,           4536,            6561;\n  3:         9261,         142884,          413343,           314928;\n  4:       194481,        4000752,        17360406,         26453952,         13286025;\n  5:      4084101,      105019740,       607614210,       1388832480,       1395032625,         516560652;\n  6:     85766121,     2646497448,     19139847615,      58330964160,      87887055375,       65086642152,       18983603961;\n  7:   1801088541,    64839187476,    562711519881,    2143662932880,    4306465713375,     4783868198172,     2790589782267,      669462604992;\n  8:  37822859361,  1556140499424,  15755922556668,   72027074544768,  180871559961750,   267896619097632,   234409541710428,   112469717638656,   22876792454961;\n  9: 794280046581, 36763819298892, 425409909030036, 2268852848160192, 6836944966554150, 12658115252363112, 14767801127756964, 10628388316852992, 4323713773987629, 762559748498700;\n","recurrence_sentence":"The row polynomials satisfy (49+(189*n-63)*x+81*n^2*x^2)*P(n,x) = (1029+(3969*n+3969)*x+(1701*n^2+8505*n+5103)*x^2+(2187*n^2+4374*n+2187)*x^3)*P(n-1,x) for n >= 1, with P(0,x) = 1.","mathematica":"P[0, x_] := 1;\nP[n_, x_] := P[n, x] = Expand[Together[((1029 + (3969*n + 3969)*x + (1701*n^2 + 8505*n + 5103)*x^2 + (2187*n^2 + 4374*n + 2187)*x^3)*P[n - 1, x])/(49 + (189*n - 63)*x + 81*n^2*x^2)]];\nTable[CoefficientList[P[n, x], x], {n, 0, 9}] // Flatten","pari":"P(N) = {my(v = vector(N + 1)); v[1] = 1; for(n = 1, N, my(i = n + 1); v[i] = ((1029 + (3969*n + 3969)*x + (1701*n^2 + 8505*n + 5103)*x^2 + (2187*n^2 + 4374*n + 2187)*x^3)*v[i - 1])/(49 + (189*n - 63)*x + 81*n^2*x^2)); 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-f485cd65a8f8089f","steps":["basis A013610","(\u03b8+1)\u00b2"],"edges":["e-b7b3e04e23eb02df","e-4480afa2f14657c1"],"text":"A038335 \u2192 basis A013610 \u2192 (\u03b8+1)\u00b2"},"headline":"A038335 \u2192 basis A013610 \u2192 (\u03b8+1)\u00b2","chain":null}