{"id":"n-bca827b180da6bd4","revision":0,"first_index":0,"fingerprint":"f6-ca1f2c2a839ffbec","name":"mobius_x_over_x_plus_one of basis_map_A007318 of Triangular array formed by the Mersenne numbers.","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"],["4","5"],["14","36","23"],["48","188","244","105"],["164","864","1698","1476","479"],["560","3708","9776","12832","8388","2185"],["1912","15248","50464","88736","87454","45812","9967"],["6528","60896","242592","535080","705840","556932","243412","45465"],["22288","238080","1109104","2943456","4867980","5138016","3380218","1267428","207391"],["76096","915856","4884992","15157024","30152016","39884580","35084720","19792360","6498020","946025"],["259808","3478592","20904144","74253568","172665192","274663536","302713320","228261280","112708950","32909780","4315343"],["887040","13077312","87423936","349849264","931226496","1731288832","2294159168","2166918960","1429807280","627715020","165030132","19684665"],["3028544","48748032","358840032","1597435840","4789999360","10192792832","15783669664","17921768768","14809934260","8686718560","3433007922","820808388","89792639"],["10340096","180432064","1450169088","7108394624","23710478720","56833985952","100722716160","133632371136","132732972144","97488048460","51465089584","18493353264","4054413572","409593865"],["35303296","663818496","5784107392","30956696064","113696465856","303147882624","605142285024","918779263488","1066219461336","941160342864","622067842032","298551775392","98355585934","19909655988","1868384047"]],"degrees":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14],"row_sums":["1","9","73","585","4681","37449","299593","2396745","19173961","153391689","1227133513","9817068105","78536544841","628292358729","5026338869833"],"nonn":true,"definitions":[{"position":0,"source":"derived:mobius_x_over_x_plus_one","source_kind":"derived","equality_edge_id":null,"recurrence":{"first_index":0,"initial_polynomials":[["1"]],"recurrence":{"denominator":{"coeffs":[["0","0","0"],["2","4","2"]]},"terms":[{"coeff":{"coeffs":[["12","53","87","63","17"],["-4","-27","-59","-53","-17"]]},"deriv_order":0,"offset":1,"sign":"none"},{"coeff":{"coeffs":[["8","48","113","131","75","17"]]},"deriv_order":1,"offset":1,"sign":"none"}]},"schema":"polytool.recurrence.v1"}}],"properties":[{"id":178051,"position":0,"claim":"real_rooted","from_index":0,"region_key":"[-1, -1/2)","provenance":"edges","claim_data":{"claim":"real_rooted","from_index":0,"region":{"lower":{"closed":true,"value":"-1"},"upper":{"closed":false,"value":"-1/2"}}},"label":"Real-rooted","description":"Every row P_n, n >= 0, is zero or real-rooted with all roots in [-1, -1/2)","region_exact":null,"edges":["e-59d62c4b4bd6f090"]},{"id":178052,"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-59d62c4b4bd6f090"]},{"id":178053,"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-59d62c4b4bd6f090"]}],"region_exact":{},"incoming_edges":[{"id":"e-59d62c4b4bd6f090","operation":{"index_shift":0,"operation":"preserver_image","operator":"{\"shape\":\"mobius\",\"a\":\"1\",\"b\":\"0\",\"c\":\"1\",\"e\":\"1\",\"schedule\":{\"first_index\":0,\"first_degree\":0,\"step\":1}}"},"operation_detail":"mobius, shift 0","conclusion_id":"n-bca827b180da6bd4","premise_count":1,"theorem":"a real affine substitution x -> a x + b (a != 0), the reversal x^d p(1/x) (d >= deg p) and a real Mobius map (c x + e)^d p((a x + b)/(c x + e)) (a e - b c != 0, d >= deg p) map real roots to real roots: a root r of p gives the root (r - b)/a, 1/r (and 0) or (e r - b)/(a - c r) (and -e/c); for an input row that is a polynomial the degree condition holds automatically","lean_route":"fTransform","lean_declarations":["RealRooted.splits_fPolynomial"],"certificate_hash":"825e8d326b96556b2579ea7ee6f2d9b3d594e712b150931c24c673b088555509","verification_polytool":"replayed","verification_lean":"not_attempted","claims":[{"claim":"real_rooted","from_index":0,"region":{"lower":{"closed":true,"value":"-1"},"upper":{"closed":false,"value":"-1/2"}}}],"premises":[{"position":0,"node_id":"n-6bdb5d7e28f56300","role":"sequence","name":"basis_map_A007318 of Triangular array formed by the Mersenne numbers.","uses":{"claim":"real_rooted","from_index":0,"region":{"lower":{"closed":false,"value":"-7"},"upper":{"closed":false,"value":"-1"}}},"uses_text":"Every row P_n, n >= 0, is zero or real-rooted with all roots in (-7, -1)"}]}],"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:     1;\n  1:     4,      5;\n  2:    14,     36,      23;\n  3:    48,    188,     244,      105;\n  4:   164,    864,    1698,     1476,      479;\n  5:   560,   3708,    9776,    12832,     8388,     2185;\n  6:  1912,  15248,   50464,    88736,    87454,    45812,     9967;\n  7:  6528,  60896,  242592,   535080,   705840,   556932,   243412,    45465;\n  8: 22288, 238080, 1109104,  2943456,  4867980,  5138016,  3380218,  1267428,  207391;\n  9: 76096, 915856, 4884992, 15157024, 30152016, 39884580, 35084720, 19792360, 6498020, 946025;\n","recurrence_sentence":"The row polynomials satisfy (2*n+4*n*x+2*n*x^2)*P(n,x) = -(4*n-12+(27*n-53)*x+(59*n-87)*x^2+(53*n-63)*x^3+(17*n-17)*x^4)*P(n-1,x) + (8+48*x+113*x^2+131*x^3+75*x^4+17*x^5)*d/dx 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[(-(4*n - 12 + (27*n - 53)*x + (59*n - 87)*x^2 + (53*n - 63)*x^3 + (17*n - 17)*x^4)*P[n - 1, x] + (8 + 48*x + 113*x^2 + 131*x^3 + 75*x^4 + 17*x^5)*D[P[n - 1, x], x])/(2*n + 4*n*x + 2*n*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] = (-(4*n - 12 + (27*n - 53)*x + (59*n - 87)*x^2 + (53*n - 63)*x^3 + (17*n - 17)*x^4)*v[i - 1] + (8 + 48*x + 113*x^2 + 131*x^3 + 75*x^4 + 17*x^5)*deriv(v[i - 1], x))/(2*n + 4*n*x + 2*n*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-9b5c7e97e5191da6","steps":["basis A007318","x \u21a6 x/(x+1)"],"edges":["e-1d7f8f614531604f","e-59d62c4b4bd6f090"],"text":"A110441 \u2192 basis A007318 \u2192 x \u21a6 x/(x+1)"},"headline":"A110441 \u2192 basis A007318 \u2192 x \u21a6 x/(x+1)","chain":null}