A386633 Number of separable type set partitions of {1..n}.
1, 1, 1, 4, 10, 46, 166, 827, 3795, 20645, 112124, 672673, 4163743, 27565188, 190168577, 1381763398, 10468226150, 82844940414, 681863474058, 5832378929502, 51720008131148, 474862643822274, 4506628734688128, 44151853623626218, 445956917001833090, 4638586880336637692
Offset: 0
Keywords
Examples
The a(1) = 1 through a(4) = 10 set partitions: {{1}} {{1},{2}} {{1},{2,3}} {{1,2},{3,4}} {{1,2},{3}} {{1,3},{2,4}} {{1,3},{2}} {{1,4},{2,3}} {{1},{2},{3}} {{1},{2},{3,4}} {{1},{2,3},{4}} {{1,2},{3},{4}} {{1},{2,4},{3}} {{1,3},{2},{4}} {{1,4},{2},{3}} {{1},{2},{3},{4}}
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..250
Crossrefs
Programs
-
Mathematica
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}]; stnseps[stn_]:=Select[Permutations[Union@@stn],And@@Table[Position[stn,#[[i]]][[1,1]]!=Position[stn,#[[i+1]]][[1,1]],{i,Length[#]-1}]&] Table[Length[Select[sps[Range[n]],stnseps[#]!={}&]],{n,0,5}]
Extensions
a(12)-a(25) from Alois P. Heinz, Aug 10 2025
Comments