A276977 Duplicate of A106827.
1, 1, 11, 315, 17129, 1510425, 196385475, 35327367075, 8399994587985, 2550903574364145, 963207568455370875, 442613044315692124875, 243195136160954426677305, 157442856285298191126143625, 118607799383105394973766029875, 102867257381973743111023517821875
Offset: 0
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..200
Programs
-
Mathematica
Table[(-1)^n Sum[StirlingS1[n+k, k] Subfactorial[n-k] Binomial[2n, n+k], {k, 0, n}], {n, 0, 20}]
Formula
a(n) = (-1)^n * Sum_{k=0..n} Stirling1(n+k, k) * !(n-k) * C(2*n, n+k), where !n = A000166(n) is the subfactorial, C(n,k) are binomial coefficients.