|
|
A227496
|
|
The Wiener index of the nanostar dendrimer defined pictorially as NS_3 in the Ashrafi et al. references.
|
|
2
|
|
|
58278, 386154, 2197138, 11480034, 56846210, 271400130, 1262261058, 5756835906, 25860706882, 114780464706, 504480353858, 2199370440258, 9523306249794, 40996576329282, 175599810575938, 748853449588290, 3181230972730946, 13468193224392258
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(1) has been checked by the direct computation of the Wiener index (using Maple).
|
|
LINKS
|
|
|
FORMULA
|
a(n) = -446 + 2^n*(5338 - 208*n) + 4^n*(1300 + 10816*n).
G.f.: 2*x*(29139 - 185730*x + 453464*x^2 - 497024*x^3 + 198144*x^4) / ((1-x)*(1-2*x)^2*(1-4*x)^2).
|
|
MAPLE
|
a := n -> -446+2^n*(5338-208*n)+4^n*(1300+10816*n): seq(a(n), n = 1..18);
|
|
MATHEMATICA
|
gf := -(58278 x + 4 x^2 (-92865 + 4 x (56683 + 16 x (-3883 + 1548 x)))) / ((-1 + x) (1 - 6 x + 8 x^2)^2); ser := Series[gf, {x, 0, 18}];
Table[Coefficient[ser, x, n], {n, 1, 18}] (* Vincenzo Librandi, Jul 20 2013 *)
|
|
PROG
|
(Magma) [-446 + 2^n*(5338 - 208*n) + 4^n*(1300 + 10816*n): n in [1..20]]; // Vincenzo Librandi, Jul 20 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|