|
|
A115348
|
|
Five-coordinate renormalization of A_5 to pentadentate D_2 polynomial as a coefficient expansion.
|
|
0
|
|
|
16384, 327680, 3440640, 12107776, 25231360, 242155520, 145080320, 2542632960, 3921969152, 18645975040, 67413278720, 107214356480, 688149954560, 882910511104, 5003772477440, 9509919129600, 28675705569280, 85303631052800
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
The idea of this renormalization is a symmetry collapse/ catastrophe in the sense of Thom in which a higher A_5 symmetry dodecahedron collapses in renormalization to a very simple D2 at an order of 10 degeneracies.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 27*coefficient expansion of -16384*x^15*(x^20 - 228* x^15 + 494*x^10 + 228*x^5 + 1)^3/(27*(-1 + x^2)^20*(x^10 + 11*x^5 - 1)^5)
|
|
MATHEMATICA
|
jA5[x_] = (x^20 - 228*x^15 + 494*x^10 + 228*x^5 + 1)^3/(-1728*x^5*(x^10 + 11* x^5 - 1)^5) jD2[x_] = (x^2 - 1)^2/(-4*x^2) p[x_]=FullSimplify[jA5[x]/jD2[x]^10] a = Flatten[27*{{p[0]}, Table[Coefficient[Series[p[x], {x, 0, 45}], x^n], {n, 1, 45}]}] aout = Flatten[Table[If[a[[n]] == 0, {}, a[[n]]], {n, 1, Length[a]}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|