The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A146543 The LerchPhi functional part of A060187 MacMahon numbers is treated/ solved for as a curvature to give a set of polynomial triangle sequence coefficients: p(x,n)=Sum[A060187(n,m)*x^(m-1),{m,0,n}]; q(x,n)=k from Solve[FullSimplify[ExpandAll[p[x, n]/(x - 1)^n]] - (1 + k/x^2) == 0, k]. 0
 2, 0, 8, 2, 20, 26, 0, 80, 224, 80, 2, 232, 1692, 1672, 242, 0, 728, 10528, 23568, 10528, 728, 2, 2172, 60678, 259688, 259758, 60636, 2186, 0, 6560, 331584, 2485344, 4674944, 2485344, 331584, 6560, 2, 19664, 1756376, 21707888, 69413420, 69413168 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS The concept here is that the increase in curvature causes transformation of Pascal's triangle into the Eulerian numbers and the MacMahon numbers, while leaving the numerical Modulo 2 Sierpinski Self -Similarity intact. The resulting polynomials have a finite Blaschke elliptical structure. The row sums are: {0, 2, 8, 48, 384, 3840, 46080, 645120, 10321920, 185794560, 3715891200}. REFERENCES Kenneth Hoffman, Banach Spaces of Analytic Functions, Dover, New York, 1962, page 66, page 132. Lennart Carleson and Theodore W. Gamelin, Complex Dynamics, Springer,New York,1993,pp 103 ( Herman's Rings as Finite Blaschke sets) LINKS Table of n, a(n) for n=0..41. FORMULA p(x,n)=Sum[A060187(n,m)*x^(m-1),{m,0,n}]; q(x,n)=k from Solve[FullSimplify[ExpandAll[p[x, n]/(x - 1)^n]] - (1 + k/x^2) == 0, k]; t(n,m)=Coefficients(((x - 1)^n/x^2)*q(n,x)). EXAMPLE {}, {2}, {0, 8}, {2, 20, 26}, {0, 80, 224, 80}, {2, 232, 1692, 1672, 242}, {0, 728, 10528, 23568, 10528, 728}, {2, 2172, 60678, 259688, 259758, 60636, 2186}, {0, 6560, 331584, 2485344, 4674944, 2485344, 331584, 6560}, {2, 19664, 1756376, 21707888, 69413420, 69413168, 21708056, 1756304, 19682}, {0, 59048, 9116096, 178301024, 906923072, 1527092720, 906923072, 178301024,9116096, 59048} MATHEMATICA Clear[q, p, x, n, a]; p[x_, n_] = p[x_, n_] = (1 - x)^(n + 1)*PolyLog[ -n, x]/x; q[x_, n_] := ((x - 1)^n/x^2)*k /. Solve[FullSimplify[ExpandAll[p[x, n]/(x - 1)^n]] - (1 + k/x^2) == 0, k]; Table[FullSimplify[Expand[q[x, n]]], {n, 0, 10}]; Table[Flatten[CoefficientList[FullSimplify[Expand[q[x, n]]], x]], {n, 0, 10}]; Flatten[%] CROSSREFS A060187, A008292 Sequence in context: A268499 A298522 A206436 * A179990 A228156 A182524 Adjacent sequences: A146540 A146541 A146542 * A146544 A146545 A146546 KEYWORD nonn AUTHOR Roger L. Bagula, Oct 31 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 15 08:18 EDT 2024. Contains 375173 sequences. (Running on oeis4.)