OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..350
FORMULA
a(n) ~ c * d^n * (n-1)!, where
d = A238261 = 4.9108149645682558987515348052403521978987052817678471761394112...
c = 0.06903826111269387517867145566264007373042059749428879149076344304196548...
MATHEMATICA
Table[(-1)^n*Sum[StirlingS1[n, k]*StirlingS1[n, n-k], {k, 0, n}], {n, 0, 20}]
PROG
(PARI) a(n) = (-1)^n*sum(k=0, n, stirling(n, k, 1)*stirling(n, n-k, 1)); \\ Michel Marcus, Feb 28 2021
(Magma) [(&+[(-1)^n*StirlingFirst(n, k)*StirlingFirst(n, n-k): k in [0..n]]): n in [0..30]]; // G. C. Greubel, Jun 03 2021
(Sage) [sum( stirling_number1(n, k)*stirling_number1(n, n-k) for k in (0..n) ) for n in (0..30)] # G. C. Greubel, Jun 03 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Feb 28 2021
STATUS
approved