|
%I #22 Feb 27 2024 13:39:24
%S 21558,141686,825078,4438006,22578678,110311926,522899958,2422104566,
%T 11019370998,49421451766,219106574838,962208334326,4192177750518,
%U 18142557897206,78066631049718,334254292599286,1424972878709238,6051724204704246,25614248465924598,108086444576211446,454863674100679158
%N The Wiener index of the nanostar dendrimer G[n], defined pictorially in the Karbasioun-Ashrafi reference.
%H A. Karbasioun and A. R. Ashrafi, <a href="https://doi.org/10.20450/mjcce.2009.221">Wiener and detour indices of a new type of nanostar dendrimers</a>, Macedonian J. of Chemistry and Chemical Engineering 28 (2009) 49-54.
%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) = 502 + 2^(n+6)*5*(14*n+53)+4^(n+6)*(5n+1).
%F G.f.: -2*(84672*x^4-205344*x^3+181436*x^2-69284*x+10779) / ((x-1)*(2*x-1)^2*(4*x-1)^2). [_Colin Barker_, Jan 01 2013]
%p a := proc (n) options operator, arrow: 502+5*2^(n+6)*(14*n+53)+4^(n+6)*(5*n+1) end proc;:seq(a(n), n = 0 .. 20);
%t LinearRecurrence[{13,-64,148,-160,64},{21558,141686,825078,4438006,22578678},30] (* _Harvey P. Dale_, Jul 20 2019 *)
%Y Cf. A221003.
%K nonn,easy
%O 0,1
%A _Emeric Deutsch_, Dec 28 2012
|
