%I #16 Jul 04 2023 11:26:21

%S 12,78,444,2328,11568,55392,258240,1180032,5309184,23594496,103812096,

%T 452990976,1962946560,8455741440,36238835712,154618920960,

%U 657130192896,2783139201024,11751031308288,49478024822784,207807700795392,870813215490048,3641582523777024,15199648767541248

%N The terminal Wiener index of the dendrimer D_n defined pictorially in Fig. 1 of the Heydari et al. reference.

%D A. Heydari, I. Gutman, On the terminal index of thorn graphs, Kragujevac J. Sci., 32, 2010, 57-64.

%H Vincenzo Librandi, <a href="/A227707/b227707.txt">Table of n, a(n) for n = 0..1000</a>

%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (10, -32, 32).

%F a(n) = 3*2^n + 9*4^n*(n+1).

%F G.f.: 6*(2-7*x+8*x^2)/((1-2*x)*(1-4*x)^2).

%p a := proc (n) options operator, arrow: 3*2^n+9*4^n*(n+1) end proc: seq(a(n), n = 0 .. 25);

%t CoefficientList[Series[6 (2 - 7 x + 8 x^2) / ((1 - 2 x) (1 - 4 x)^2), {x, 0, 30}], x] (* _Vincenzo Librandi_, Aug 04 2013 *)

%o (Magma) [3*2^n+9*4^n*(n+1): n in [0..25]]; // _Vincenzo Librandi_, Aug 04 2013

%Y Cf. A227708, A227709.

%K nonn,easy

%O 0,1

%A _Emeric Deutsch_, Aug 02 2013