
COMMENTS

A face number function for a type of exceptional group expansion using Euler's formula V=EF+2.
Derived in Mathematica to give known exceptional group polyhedron sequence: (Platonic solids) e = n*(n  1); v = f  2^(n  3); Solve[v + f  e  2 == 0, f] Table[Round[{e, v, f}], {n, 1, 7}] {{0, 1, 1}, {2, 2, 2}, {6, 4, 4}, {12, 6, 8}, {20, 9, 13}, {30, 12, 20}, {42, 14, 30}} Table[Apply[Plus, Round[{e, v, f}]], {n, 1, 7}]>{2, 2, 2, 2, 2, 2, 2} This result is just a sequence of numbers that seem to work.
