close
login
A394293
Number of induced cubes in the n X n white bishop graph.
0
0, 3, 9, 25, 51, 98, 166, 270, 410, 605, 855, 1183, 1589, 2100, 2716, 3468, 4356, 5415, 6645, 8085, 9735, 11638, 13794, 16250, 19006, 22113, 25571, 29435, 33705, 38440, 43640, 49368, 55624, 62475, 69921, 78033, 86811, 96330, 106590, 117670, 129570, 142373
OFFSET
1,2
COMMENTS
Sequence extended to a(1) using the formula.
LINKS
Eric Weisstein's World of Mathematics, Cube Polynomial.
Eric Weisstein's World of Mathematics, White Bishop Graph.
FORMULA
a(n) = (n + 1)*(3*((-1)^n - 1) + n*(n + 1)*(n + 2))/24.
a(n) = 3*a(n-1)-a(n-2)-5*a(n-3)+5*a(n-4)+a(n-5)-3*a(n-6)+a(n-7).
G.f.: -x^2*(3+x^2)/((-1+x)^5*(1+x)^2).
MATHEMATICA
Table[(n + 1)*(3*((-1)^n - 1) + n*(n + 1)*(n + 2))/24, {n, 20}]
Table[Piecewise[{{n (n + 1)^2 (n + 2)/24, Mod[n, 2] == 0}, {(n - 1) (n + 1) (n^2 + 4 n + 6)/24, Mod[n, 2] == 1}}], {n, 20}]
LinearRecurrence[{3, -1, -5, 5, 1, -3, 1}, {3, 9, 25, 51, 98, 166, 270}, 20]
CoefficientList[Series[-x (3 + x^2)/((-1 + x)^5 (1 + x)^2), {x, 0, 20}], x]
CROSSREFS
Sequence in context: A380050 A032681 A293852 * A005209 A112522 A005262
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Mar 15 2026
STATUS
approved