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

12428, 25756, 73468, 261436, 1085628, 4928956, 23182268, 109461436, 511850428, 2360346556, 10732660668, 48186107836, 213969872828, 941234202556, 4107353204668, 17801256904636, 76697127888828, 328767094400956, 1403004540430268, 5963809411835836, 25262501717354428

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 (13,-64,148,-160,64)

Formula

a(n) = 10172 + 2^n*(5600*n + 4880) + 4^n*(1280*n - 2624).

G.f.: 4*(3107 - 33952*x + 133508*x^2 - 221152*x^3 + 141376*x^4)/((1-x)*(1-2*x)^2*(1-4*x)^2). - Bruno Berselli, Dec 30 2012

E.g.f.: 4*exp(x)*(2543 + 16*exp(3*x)*(80*x - 41) + 20*exp(x)*(61 + 140*x)). - Stefano Spezia, Sep 26 2025

Maple

a := proc (n) options operator, arrow: 10172+2^n*(5600*n+4880)+4^n*(1280*n-2624) end proc: seq(a(n), n = 0 .. 20);

Mathematica

Table[10172 + 2^n*(5600*n+4880) +4^n*(1280*n-2624), {n, 0, 20}] (* G. C. Greubel, Nov 06 2018 *)
LinearRecurrence[{13, -64, 148, -160, 64}, {12428, 25756, 73468, 261436, 1085628}, 30] (* Harvey P. Dale, May 26 2026 *)

Prog

(PARI) a(n) = 10172 + 2^n*(5600*n+4880) + 4^n*(1280*n-2624); \\ Andrew Howroyd, Nov 05 2018
(Magma) [10172 + 2^n*(5600*n+4880) +4^n*(1280*n-2624): n in [0..20]]; // G. C. Greubel, Nov 06 2018

Crossrefs

Cf. A221017.

Sequence in context: A156116 A068676 A252613 * A237901 A234127 A272132

Adjacent sequences: A221013 A221014 A221015 * A221017 A221018 A221019

Keyword

nonn,easy

Author

Emeric Deutsch, Dec 30 2012

Status

approved