OFFSET
0,1
COMMENTS
a(1) has been checked by the direct computation of the Wiener index (using Maple).
REFERENCES
A. R. Ashrafi and M. Mirzargar, The study of an infinite class of dendrimer nanostars by topological index approaches, J. Appl. Math. Comput, 31, 2009, 289-294.
M. J. Nadjafi-Arani, A new algorithm for computing the Wiener index of molecular graphs (unpublished paper).
LINKS
Index entries for linear recurrences with constant coefficients, signature (15,-86,232,-288,128).
FORMULA
a(n) = 7560 - 64000*4^n*n - 113312*2^n + 106784*4^n + 25600*4^n*n^2.
G.f.: 8*(129+4874*x+15616*x^2+4896*x^3)/((1-x)*(1-2*x)*(1-4*x)^3). [Bruno Berselli, Apr 06 2013]
MAPLE
a := proc (n) options operator, arrow: 7560-113312*2^n+25600*4^n*n^2-64000*4^n*n+106784*4^n end proc: seq(a(n), n = 0 .. 18);
MATHEMATICA
CoefficientList[Series[8 (129 + 4874 x + 15616 x^2 + 4896 x^3)/((1 - x) (1 - 2 x) (1 - 4 x)^3), {x, 0, 20}], x] (* Bruno Berselli, Apr 06 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emeric Deutsch, Apr 06 2013
STATUS
approved