|
|
A221017
|
|
The hyper-Wiener index of the fullerenyl anion G[n]C[60], defined pictorially in the Arezoomand reference (see Fig. 5).
|
|
2
|
|
|
47750, 136534, 559318, 2753270, 15400950, 90898294, 533474678, 3033407350, 16617791350, 87925716854, 451432421238, 2259700922230, 11073057240950, 53297483364214, 252669889754998, 1182399069697910, 5471583039141750, 25074494578112374, 113930964314371958
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
See Table on p. 722 of the Arezoomand reference.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 14198+2^n*(-11544+6920*n+14000*n^2) +4^n*(6400*n^2-25600*n+45096).
G.f.: 2*(23875 -385358*x +2563836*x^2 -8881336*x^3 +17320448*x^4 -18447232*x^5 +7997440*x^6)/((1-x)*(1-2*x)^3*(1-4*x)^3). - Bruno Berselli, Dec 30 2012
|
|
MAPLE
|
a := proc (n) options operator, arrow: 14198+2^n*(-11544+6920*n+14000*n^2)+4^n*(6400*n^2-25600*n+45096) end proc: seq(a(n), n = 0 .. 18);
|
|
MATHEMATICA
|
Table[14198 + 2^n (-11544 + 6920 n + 14000 n^2) + 4^n (6400 n^2 - 25600 n + 45096), {n, 0, 20}] (* Vincenzo Librandi, Nov 06 2018 *)
|
|
PROG
|
(PARI) a(n) = 14198+2^n*(-11544+6920*n+14000*n^2) + 4^n*(6400*n^2-25600*n+45096); \\ Andrew Howroyd, Nov 05 2018
(Magma) [14198 + 2^n*(-11544 + 6920*n + 14000*n^2) + 4^n*(6400*n^2 - 25600*n + 45096): n in [0..20]]; // Vincenzo Librandi, Nov 06 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|