A140588 a(n) = Bell(n) * Fibonacci(n).

0, 1, 2, 10, 45, 260, 1624, 11401, 86940, 718998, 6378625, 60392730, 606757968, 6441153821, 71969044394, 843604712450, 10343900299089, 132335197076988, 1762486467114856, 24386695159343317, 349913930462291580, 5197925007651796446, 79818442443640537653

Offset

0,3

Links

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

Maple

with(combinat): seq(bell(x)*fibonacci(x), x=0..30);

Mathematica

Table[BellB[n, 1]*Fibonacci[n, 1], {n, 0, 20}] (* Zerinvary Lajos, Jul 16 2009 *)

Prog

(Sage) [bell_number(m) * fibonacci(m) for m in range(21)]

Crossrefs

Sequence in context: A068484 A192704 A005963 * A137334 A209010 A306752

Adjacent sequences: A140585 A140586 A140587 * A140589 A140590 A140591

Keyword

nonn

Author

Zerinvary Lajos, Jul 06 2008

Status

approved