|
Search: id:A147834
|
|
|
| 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, 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; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
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 this_sequence A160378 A096942 A122244
Adjacent sequences: A147831 A147832 A147833 this_sequence A147835 A147836 A147837
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 14 2008
|
|
|
Search completed in 0.002 seconds
|
