A100389 a(n) = Bell(n) - Fibonacci(n).

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

Links

Table of n, a(n) for n=0..25.

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

Cf. A000110, A000045.

Sequence in context: A122450 A179648 A258788 * A151163 A151164 A151165

Adjacent sequences: A100386 A100387 A100388 * A100390 A100391 A100392

Keyword

nonn

Author

Jorge Coveiro, Dec 30 2004

Status

approved