login
A100389
a(n) = Bell(n) - Fibonacci(n).
0
1, 0, 1, 3, 12, 47, 195, 864, 4119, 21113, 115920, 678481, 4213453, 27644204, 190898945, 1382957935, 10480141160, 82864868207, 682076803575, 5832742200876, 51724158228607, 474869816145805, 4506715738429612, 44152005855055689, 445958869294758921, 4638590332229924328
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
Sequence in context: A122450 A179648 A258788 * A151163 A151164 A151165
KEYWORD
nonn
AUTHOR
Jorge Coveiro, Dec 30 2004
STATUS
approved