OFFSET
1,2
COMMENTS
The Lucas cube L_n is defined in the Klavzar and Mollard reference (as Lambda_n).
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
S. Klavzar, M. Mollard, Wiener index and Hosoya polynomial of Fibonacci and Lucas cubes, MATCH Commun. Math. Comput. Chem., 68, 2012, 311-324.
Eric Weisstein's World of Mathematics, Lucas Cube Graph
Eric Weisstein's World of Mathematics, Wiener Index
Index entries for linear recurrences with constant coefficients, signature (4,0,-10,0,4,-1).
FORMULA
a(n) = n * F(n-1) * F(n+1) where F(n)=A000045(n) are the Fibonacci numbers.
a(n) = (1/5) * ((4n+4)*F(2n-2) + (7n+7)*F(2n-1) - 3(n+1)*(-1)^n). - Ralf Stephan, Mar 30 2014
G.f.: (4*x^3 - 7*x^2 + 4*x)/((x + 1)^2 * (x^2 - 3*x + 1)^2). - Ralf Stephan, Mar 30 2014
EXAMPLE
a(2)=4 because the Lucas cube L_2 is the path P_3 having Wiener index 1 + 1 + 2 = 4.
a(3)=9 because the Lucas cube L_3 is the star on 4 vertices having Wiener index 1 + 1 + 1 + 2 + 2 + 2 = 9.
MATHEMATICA
Table[n Fibonacci[n - 1] Fibonacci[n + 1], {n, 1, 40}] (* Vincenzo Librandi, Mar 30 2014 *)
Table[(3 (-1)^n + LucasL[2 n]) n/5, {n, 15}] (* Eric W. Weisstein, Jul 29 2023 *)
LinearRecurrence[{4, 0, -10, 0, 4, -1}, {0, 4, 9, 40, 120, 390}, 20] (* Eric W. Weisstein, Jul 29 2023 *)
CoefficientList[Series[x (4 - 7 x + 4 x^2)/(1 - 2 x - 2 x^2 + x^3)^2, {x, 0, 20}], x] (* Eric W. Weisstein, Jul 29 2023 *)
PROG
(Magma) [n*Fibonacci(n-1)*Fibonacci(n+1): n in [1..40]]; // Vincenzo Librandi, Mar 30 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emeric Deutsch, Mar 26 2014
STATUS
approved