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