|
| |
|
|
A147834
|
|
Coefficient expansion of the characteristic polynomial of the {3,4,5} simplex matrix:M = {{0, 3, 0}, {0, 0, 4}, {1, 1, 1}}; p(x)=12 + 4 x + x^2 - x^3;
|
|
0
| |
|
|
1, 1, 5, 21, 53, 197, 661, 2085, 7093, 23365, 76757, 255333, 842741, 2785157, 9220117, 30473637, 100775989, 333311941, 1102099541, 3644659173, 12052800629, 39856631813, 131803744405, 435863879205, 1441358438581, 4766458888261
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| The {3,4,5} represents one of the few integer based triangular tilings of the plane by triangles.
|
|
|
FORMULA
| p(x)=12 + 4 x + x^2 - x^3; a(n)=coefficient_expansion(-x^3*p(1/x)).
|
|
|
MATHEMATICA
| f[x_] = 12 + 4 x + x^2 - x^3; g[x] = ExpandAll[ -x^3*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
|
|
|
CROSSREFS
| Sequence in context: A099979 A039659 A147238 * A160378 A201440 A096942
Adjacent sequences: A147831 A147832 A147833 * A147835 A147836 A147837
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 14 2008
|
| |
|
|
