OFFSET
1,12
EXAMPLE
The a(n) sets for n = 6, 12, 24, 30, 36, 60, 72, 96:
{2,3} {2,3} {2,3} {5,6} {2,3} {5,6} {2,3} {2,3}
{3,4} {3,4} {2,15} {2,9} {2,15} {2,9} {3,4}
{3,8} {3,10} {3,4} {3,10} {3,4} {3,8}
{2,3,5} {4,9} {3,20} {3,8} {3,16}
{4,15} {4,9} {3,32}
{5,12} {8,9}
{2,3,5}
{3,4,5}
MATHEMATICA
fasmax[y_]:=Complement[y, Union@@Most@*Subsets/@y];
Table[Length[fasmax[Select[Subsets[Rest[Divisors[n]]], CoprimeQ@@#&]]], {n, 100}]
CROSSREFS
The case of pairs is A089233.
The case with 1's is A343652.
The case with singletons is (also) A343652.
The non-maximal version is A343653.
The non-maximal version with 1's is A343655.
The version for subsets of {2..n} is A343659 (for n > 2).
A018892 counts coprime unordered pairs of divisors.
A051026 counts pairwise indivisible subsets of {1..n}.
A066620 counts pairwise coprime 3-sets of divisors.
A100565 counts pairwise coprime unordered triples of divisors.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 26 2021
STATUS
approved