OFFSET
0,5
EXAMPLE
The a(1) = 1 through a(6) = 8 subsets:
{1} {1,2} {1,2,3} {1,2,3} {1,2,4} {1,2,3,5}
{1,2,4} {2,3,4} {1,2,3,6}
{1,3,4} {2,4,5} {1,2,4,6}
{2,3,4} {1,2,3,5} {1,3,4,5}
{1,3,4,5} {1,3,5,6}
{1,4,5,6}
{2,3,4,6}
{2,4,5,6}
MATHEMATICA
fasmax[y_]:=Complement[y, Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Select[Subsets[Range[n]], UnsameQ@@Plus@@@Subsets[Union[#], {2}]&]]], {n, 0, 10}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Jun 02 2019
STATUS
approved