Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Dec 06 2019 15:47:42
%S 1,0,1,3,12,47,195,864,4119,21113,115920,678481,4213453,27644204,
%T 190898945,1382957935,10480141160,82864868207,682076803575,
%U 5832742200876,51724158228607,474869816145805,4506715738429612,44152005855055689,445958869294758921,4638590332229924328
%N a(n) = Bell(n) - Fibonacci(n).
%p with(combinat): seq(bell(x)-fibonacci(x),x=0..30);
%t Table[BellB[n, 1] - Fibonacci[n, 1], {n, 0, 22}] (* _Zerinvary Lajos_, Jul 16 2009 *)
%o (Sage) [bell_number(m) - fibonacci(m) for m in range(23)] # _Zerinvary Lajos_, Jul 06 2008
%Y Cf. A000110, A000045.
%K nonn
%O 0,4
%A _Jorge Coveiro_, Dec 30 2004