A221017 The hyper-Wiener index of the fullerenyl anion G[n]C[60], defined pictorially in the Arezoomand reference (see Fig. 5).

47750, 136534, 559318, 2753270, 15400950, 90898294, 533474678, 3033407350, 16617791350, 87925716854, 451432421238, 2259700922230, 11073057240950, 53297483364214, 252669889754998, 1182399069697910, 5471583039141750, 25074494578112374, 113930964314371958

Offset

0,1

Comments

See Table on p. 722 of the Arezoomand reference.

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

M. Arezoomand, On the distance-based topological indices of fullerene and fullerenyl anions having dendrimer units, Digest J. of Nanomaterials and Biostructures, 4 (2009) 713-722.

Index entries for linear recurrences with constant coefficients, signature (19,-150,636,-1560,2208,-1664,512).

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

Cf. A221016.

Sequence in context: A241221 A261339 A166003 * A254800 A254807 A253816

Adjacent sequences: A221014 A221015 A221016 * A221018 A221019 A221020

Keyword

nonn,easy

Author

Emeric Deutsch, Dec 30 2012

Status

approved