A051139 a(n) = A000994(n+2) - A000995(n+2).
1, 0, 0, 1, 3, 7, 19, 64, 236, 893, 3489, 14347, 62429, 285580, 1362372, 6749337, 34683211, 184774851, 1019351071, 5813020060, 34206071992, 207391313189, 1294092695729, 8302365433863, 54713262186745, 370027343460584, 2565874205681368
Offset: 0
Examples
a(7) = 359 - 295 = 64.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..100
Programs
-
Haskell
a051139 n = a000994 (n + 2) - a000995 (n + 2) -- Reinhard Zumkeller, Jun 02 2013
-
Mathematica
a4[?Negative] = 0; a4[n] := a4[n] = 1 + Sum[ Binomial[n, k]*a4[k-2], {k, 2, n}]; a5[?Negative] = 0; a5[n] := a5[n] = n + Sum[ Binomial[n, k]*a5[k-2], {k, 2, n}]; a[n_] := a4[n] - a5[n]; Table[a[n], {n, 0, 26}] (* Jean-François Alcover, Oct 11 2013 *)