OFFSET
0,3
LINKS
EXAMPLE
a(3) = 4: 123, 13|2, 1|23, 1|2|3.
a(4) = 12: 1234, 123|4, 124|3, 12|34, 134|2, 13|24, 1|234, 1|23|4, 14|2|3, 1|24|3, 1|2|34, 1|2|3|4.
MATHEMATICA
sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]&/@sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}];
Table[Length[Select[sps[Range[n]], UnsameQ@@Total/@#&]], {n, 0, 10}] (* Gus Wiseman, Jul 13 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 08 2016
EXTENSIONS
a(17)-a(25) from Christian Sievers, Aug 20 2024
STATUS
approved