OFFSET
1,1
COMMENTS
a(1) has been checked by the direct computation of the hyper-Wiener index (using Maple).
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..201 [Offset shifted to 1 by Georg Fischer, Aug 19 2021]
A. R. Ashrafi and P. Nikzad, Connectivity index of the family of dendrimer nanostars, Digest J. Nanomaterials and Biostructures, 4, 2009, 269-273.
A. R. Ashrafi and P. Nikzad, Kekulé index and bounds of energy for nanostar dendrimers, Digest J. Nanomaterials and Biostructures, 4, 2009, 383-388.
Index entries for linear recurrences with constant coefficients, signature (19,-150,636,-1560,2208,-1664,512).
FORMULA
a(n) = 2539 + 2^n*(-79425 + 368*n - 416*n^2) + 4^n*(113822 + 15808*n + 43264*n^2).
G.f.: x*(535169 - 5391180*x + 24097588*x^2 - 59759584*x^3 + 84286784*x^4 - 62611456*x^5 + 18911232*x^6) / ((1-x)*(1-2*x)^3*(1-4*x)^3).
MAPLE
aa := proc (n) options operator, arrow: 2539+2^n*(-79425+368*n-416*n^2) +4^n*(113822+15808*n+43264*n^2) end proc: seq(aa(n), n = 1 .. 20);
MATHEMATICA
CoefficientList[Series[(535169 - 5391180 x + 24097588 x^2 - 59759584 x^3 + 84286784 x^4 - 62611456 x^5 + 18911232 x^6) / ((1 - x) (1 - 2 x)^3 (1 - 4 x)^3), {x, 0, 30}], x] (* Vincenzo Librandi, Jul 20 2013 *)
PROG
(Magma) [2539 + 2^n*(-79425 + 368*n - 416*n^2) + 4^n*(113822 + 15808*n + 43264*n^2): n in [1..20]]; // Vincenzo Librandi, Jul 20 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emeric Deutsch, Jul 19 2013
STATUS
approved