A153820 Bell number A000110(n) minus Bessel number A006789(n).

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

G. C. Greubel, Table of n, a(n) for n = 0..200

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

Cf. A000110, A006789.

Sequence in context: A241976 A082150 A026785 * A009139 A086018 A197402

Adjacent sequences: A153817 A153818 A153819 * A153821 A153822 A153823

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