login
A153820
Bell number A000110(n) minus Bessel number A006789(n).
1
0, 0, 0, 0, 1, 9, 60, 368, 2218, 13496, 84010, 538885, 3576885, 24624234, 176021146, 1306975716, 10078487587, 80670305273, 669699040920, 5760761324172, 51293043905644, 472213256230868, 4489889820251839
OFFSET
0,6
LINKS
FORMULA
a(n) = A000110(n) - A006789(n).
MATHEMATICA
nmax = 50; m = SparseArray[{{i_, i_} :> i, Band[{1, 2}] -> 1, Band[{2, 1}] -> 1}, {nmax, nmax}]; a[n_] := MatrixPower[m, n][[1, 1]]; Table[BellB[n] - a[n], {n, 0, nmax}] (* G. C. Greubel, Aug 30 2016, built using Jean-François Alcover's code from A006789 *)
CROSSREFS
Sequence in context: A241976 A082150 A026785 * A009139 A086018 A197402
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 02 2009
EXTENSIONS
More terms and correction of 9th term by Dmitry Kamenetsky, Jan 17 2009
STATUS
approved