|
%I #18 Sep 08 2022 08:46:04
%S 12428,25756,73468,261436,1085628,4928956,23182268,109461436,
%T 511850428,2360346556,10732660668,48186107836,213969872828,
%U 941234202556,4107353204668,17801256904636,76697127888828,328767094400956,1403004540430268,5963809411835836,25262501717354428
%N The Wiener index of the fullerenyl anion G[n]C[60], defined pictorially in the Arezoomand reference (see Fig. 5).
%C See Table on p. 722 of the Arezoomand reference.
%H G. C. Greubel, <a href="/A221016/b221016.txt">Table of n, a(n) for n = 0..1000</a>
%H M. Arezoomand, <a href="http://www.chalcogen.ro/713_Dendrimer-Fullerene.pdf">On the distance-based topological indices of fullerene and fullerenyl anions having dendrimer units</a>, Digest J. of Nanomaterials and Biostructures, 4 (2009) 713-722.
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (13,-64,148,-160,64)
%F a(n) = 10172 + 2^n*(5600*n + 4880) + 4^n*(1280*n - 2624).
%F 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
%p 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);
%t Table[10172 + 2^n*(5600*n+4880) +4^n*(1280*n-2624), {n,0,20}] (* _G. C. Greubel_, Nov 06 2018 *)
%o (PARI) a(n) = 10172 + 2^n*(5600*n+4880) + 4^n*(1280*n-2624); \\ _Andrew Howroyd_, Nov 05 2018
%o (Magma) [10172 + 2^n*(5600*n+4880) +4^n*(1280*n-2624): n in [0..20]]; // _G. C. Greubel_, Nov 06 2018
%Y Cf. A221017.
%K nonn,easy
%O 0,1
%A _Emeric Deutsch_, Dec 30 2012
|
