OFFSET
1,4
EXAMPLE
The a(1) = 1 through a(8) = 14 subsets:
{1} {2} {3} {1,4} {3,5} {5,6} {1,6,7} {3,7,8}
{2,4} {4,5} {1,4,6} {2,5,7} {4,6,8}
{3,4} {1,2,5} {2,3,6} {2,6,7} {4,7,8}
{2,4,6} {3,4,7} {5,6,8}
{3,4,6} {3,5,7} {5,7,8}
{3,6,7} {6,7,8}
{4,5,7} {1,2,7,8}
{4,6,7} {1,3,6,8}
{5,6,7} {1,4,5,8}
{1,2,4,7} {2,3,5,8}
{2,3,6,8}
{2,4,5,8}
{3,4,5,8}
{1,2,3,4,8}
MATHEMATICA
fasmin[y_]:=Complement[y, Union@@Table[Union[s, #]&/@Rest[Subsets[Complement[Union@@y, s]]], {s, y}]];
Table[Length[fasmin[Select[Subsets[Range[n]], MemberQ[#, n]&&Plus@@#>=Plus@@Complement[Range[n], #]&]]], {n, 10}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 11 2019
EXTENSIONS
a(15)-a(42) from Bert Dobbelaere, Jun 22 2019
STATUS
approved