OFFSET
0,5
COMMENTS
a(n) appears to be the same as A211694(n-2). - Georg Fischer, Oct 09 2018
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1132
A. O. Munagi, Set partitions with isolated singletons, Am. Math. Monthly 125 (2018), 447-452.
MAPLE
f:=proc(n) local j;
add(combinat:-bell(j-1)*binomial(n-j-1, j-1), j=0..floor(n/2));
end;
[seq(f(n), n=0..100)];
MATHEMATICA
a[n_] := If[n == 0, 1, Sum[BellB[j-1]*Binomial[n-j-1, j-1], {j, 1, Floor[n/2]}]];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Jun 17 2024, after Maple code *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 19 2018
EXTENSIONS
a(0)=1 prepended by Alois P. Heinz, May 21 2023
STATUS
approved