A100397 Bell(n-1) - Fibonacci(n).

1, 1, 0, 0, 0, 2, 10, 44, 190, 856, 4106, 21092, 115886, 678426, 4213364, 27644060, 190898712, 1382957558, 10480140550, 82864867220, 682076801978, 5832742198292, 51724158224426, 474869816139040, 4506715738418666

Offset

0,6

Links

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

Maple

seq(bell(x-1)-fibonacci(x), x=0..30);

Mathematica

Join[{1, 1}, Table[BellB[n-1]-Fibonacci[n], {n, 30}]] (* Harvey P. Dale, Sep 26 2017 *)

Crossrefs

Sequence in context: A218780 A068551 A099919 * A084059 A339642 A084609

Adjacent sequences: A100394 A100395 A100396 * A100398 A100399 A100400

Keyword

nonn

Author

Jorge Coveiro, Dec 30 2004

Status

approved