OFFSET
2,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 2..200
Eric Weisstein's World of Mathematics, Folded Cube Graph
Eric Weisstein's World of Mathematics, Molecular Topological Index
FORMULA
a(n) = 2^(n-2)*n^2*(2 + 2^(n-1) - binomial(n-1,floor((n-1)/2))), for n>2. - Andrew Howroyd, May 11 2017
Conjecture: D-finite with recurrence: +(n-1)*(3171347*n-9561097)*a(n) +2*(-22257061*n^2+113080920*n-124259984)*a(n-1) +8*(25480326*n^2-186826067*n+302663821)*a(n-2) +16*(-2142117*n^2+189489004*n-548366652)*a(n-3) +64*(-46156212*n^2+185594099*n-75953597)*a(n-4) +1024*(11001336*n^2-74317052*n+114909451)*a(n-5) +1024*(-17489828*n^2+145166555*n-279390145)*a(n-6) +20480*(530179*n-1731202)*(n-6)*a(n-7)=0. - R. J. Mathar, Feb 21 2020
MATHEMATICA
a[2] = 4; a[n_] := 2^(n-2)*n^2*(2 + 2^(n-1) - Binomial[n-1, Floor @ ((n-1)/2)]); Array[a, 21, 2] (* Jean-François Alcover, Nov 01 2017, after Andrew Howroyd *)
PROG
(PARI) {a(n) = if(n==2, 4, 2^(n-2)*n^2*(2 +2^(n-1) -binomial(n-1, floor((n-1)/2))))}; \\ G. C. Greubel, Jan 03 2019
(Magma) [4] cat [2^(n-2)*n^2*(2 +2^(n-1) -Binomial(n-1, Floor((n-1)/2))): n in [3..30]] // G. C. Greubel, Jan 03 2019
(Sage) [4] + [2^(n-2)*n^2*(2 +2^(n-1) -binomial(n-1, floor((n-1)/2))) for n in (3..30)] # G. C. Greubel, Jan 03 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Jul 10 2011
EXTENSIONS
a(11)-a(22) from Andrew Howroyd, May 11 2017
STATUS
approved