[go: up one dir, main page]

login
A100397
Bell(n-1) - Fibonacci(n).
0
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
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
KEYWORD
nonn
AUTHOR
Jorge Coveiro, Dec 30 2004
STATUS
approved