|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(7) = 359 - 295 = 64.
|
|
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 *)
|
|
PROG
|
(Haskell)
a051139 n = a000994 (n + 2) - a000995 (n + 2)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,eigen,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|