|
|
A292026
|
|
Wiener index of the n-Sierpinski tetrahedron graph.
|
|
0
|
|
|
6, 66, 1476, 42984, 1343568, 42744480, 1365843264, 43691203200, 1397992469760, 44734751599104, 1431503994934272, 45808063400749056, 1465857513377452032, 46907436304708313088, 1501037928764511436800, 48033213456578353201152, 1537062828499432090435584
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 2^(n - 6)*(2016 + 15*2^(n + 4) + 175*4^(n + 1) + 89*16^n)/35.
a(n) = 46*a(n-1) - 504*a(n-2) + 1856*a(n-3) - 2048*a(n-4).
G.f.: 6*x*(1 - 35*x + 244*x^2 - 464*x^3)/(1 - 46*x + 504*x^2 - 1856*x^3 + 2048*x^4). [Corrected by Georg Fischer, May 23 2019]
|
|
MATHEMATICA
|
Table[2^(n - 6) (2016 + 15 2^(n + 4) + 175 4^(n + 1) + 89 16^n)/35, {n, 20}]
LinearRecurrence[{46, -504, 1856, -2048}, {6, 66, 1476, 42984}, 20]
CoefficientList[Series[-6 (-1 + 35 x - 244 x^2 + 464 x^3)/(1 - 46 x + 504 x^2 - 1856 x^3 + 2048 x^4), {x, 0, 20}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|