OFFSET
1,4
EXAMPLE
MATHEMATICA
Table[Sum[(2k)!/k!/2^k Binomial[n, 2k], {k, 0, n/2}] - 2^(n - 1) // FullSimplify, {n, 26}] (* Robert G. Wilson v, Sep 27 2006 *) (* or *)
Table[HypergeometricU[ -(n/2), 1/2, -(1/2)]/(-(1/2))^(-(-n/2)) - 2^(n - 1), {n, 26}] (* Robert G. Wilson v, Sep 27 2006 *) (* or *)
(* first do *) Needs["DiscreteMath`Combinatorica`"] (* then *) Table[NumberOfTableaux[M[Star[n+1]]] - 2^(n - 1), {n, 26}] (* Robert G. Wilson v, Sep 27 2006 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Alford Arnold, Sep 22 2006
EXTENSIONS
More terms from Robert G. Wilson v, Sep 27 2006
STATUS
approved