|
|
A201862
|
|
Number of ways to place k nonattacking bishops on an n X n board, sum over all k>=0.
|
|
7
|
|
|
2, 9, 70, 729, 9918, 167281, 3423362, 82609921, 2319730026, 74500064809, 2711723081550, 110568316431609, 5016846683306758, 251180326892449969, 13806795579059621930, 827911558468860287041, 53940895144894708523922, 3799498445458163685753481, 288400498147873552894868886
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Also the number of vertex covers and independent vertex sets of the n X n bishop graph.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
knbishops[k_, n_]:=(If[n==1, If[k==1, 1, 0], (-1)^k/(2n-k)!
*Sum[Binomial[2n-k, n-k+i]*Sum[(-1)^m*Binomial[n-i, m]*m^Floor[n/2]*(m+1)^Floor[(n+1)/2], {m, 1, n-i}]
*Sum[(-1)^m*Binomial[n-k+i, m]*m^Floor[(n+1)/2]*(m+1)^Floor[n/2], {m, 1, n+i-k}], {i, Max[0, k-n], Min[k, n]}]]);
Table[1+Sum[knbishops[k, n], {k, 1, 2n-1}], {n, 1, 25}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|