|
|
A129937
|
|
The central binomial numbers Binomial[n,Floor[n/2] minus the SO(n) dimension as an algebraic projective variety dimension.
|
|
0
|
|
|
1, 1, 0, 0, 0, 5, 14, 42, 90, 207, 407, 858, 1638, 3341, 6330, 12750, 24174, 48467, 92207, 184566, 352506, 705201, 1351825, 2703880, 5200000, 10400275, 20057949, 40116222, 77558354, 155117085
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
COMMENTS
|
Alternative summing form gives the same answer: f[n_] = Binomial[n, Floor[n/2]] - Binomial[n - 1, Floor[(n - 1)/2]] g[n_] = Sum[f[m + 1], {m, 1, n}] + 1 - Sum[m, {m, 1, n}] Table[g[n], {n, 0, 29}] That a(n) of n=3,4,5 are all zero seems important here.
|
|
REFERENCES
|
http://mathworld.wolfram.com/SchubertVariety.html
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Binomial[n, Floor[n/2]] - n*(n - 1)/2
|
|
MATHEMATICA
|
k[n_] = Binomial[n, Floor[n/2]] - n*(n - 1)/2; Table[k[n], {n, 1, 30}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|