OFFSET
1,4
LINKS
Eric Weisstein's World of Mathematics, Graph Cycle
Eric Weisstein's World of Mathematics, Halved Cube Graph
Index entries for linear recurrences with constant coefficients, signature (14, -84, 280, -560, 672, -448, 128).
FORMULA
a(n) = 2^n*binomial(n, 4)*(81*n^2 - 552*n + 952).
a(n) = 14*a(n-1)-84*a(n-2)+280*a(n-3)-560*a(n-4)+672*a(n-5)-448*a(n-6)+128*a(n-7).
G.f.: (-160*x*(4*x^3 + 161*x^4 + 634*x^5))/(-1 + 2*x)^7.
MATHEMATICA
seq = Table[2^n Binomial[n, 4] (81 n^2 - 552 n + 952), {n, 30}]
LinearRecurrence[{14, -84, 280, -560, 672, -448, 128}, {0, 0, 0, 640, 34720, 533760, 4735360}, 20]
CoefficientList[
Series[-((160 (4 x^3 + 161 x^4 + 634 x^5))/(-1 + 2 x)^7), {x, 0,
20}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Jul 17 2017
STATUS
approved