OFFSET
0,6
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..200
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
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