OFFSET
0,4
MAPLE
with(combinat): seq(bell(x)-fibonacci(x), x=0..30);
MATHEMATICA
Table[BellB[n, 1] - Fibonacci[n, 1], {n, 0, 22}] (* Zerinvary Lajos, Jul 16 2009 *)
PROG
(Sage) [bell_number(m) - fibonacci(m) for m in range(23)] # Zerinvary Lajos, Jul 06 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Jorge Coveiro, Dec 30 2004
STATUS
approved