OFFSET
1,2
COMMENTS
Depends only on prime signature.
The non-maximal case is A096827.
EXAMPLE
The maximal sets of pairwise indivisible divisors of n = 1, 2, 4, 8, 12, 24, 30, 32, 36, 48, 60 are:
1 1 1 1 1 1 1 1 1 1 1
2 2 2 12 24 30 2 36 48 60
4 4 2,3 2,3 5,6 4 2,3 2,3 2,15
8 3,4 3,4 2,15 8 2,9 3,4 3,20
4,6 3,8 3,10 16 3,4 3,8 4,30
4,6 2,3,5 32 4,18 4,6 5,12
6,8 6,10,15 9,12 6,8 2,3,5
8,12 12,18 3,16 3,4,5
4,6,9 6,16 4,5,6
8,12 3,4,10
12,16 6,15,20
16,24 10,12,15
12,15,20
12,20,30
4,6,10,15
MATHEMATICA
stableQ[u_, Q_]:=!Apply[Or, Outer[#1=!=#2&&Q[#1, #2]&, u, u, 1], {0, 1}];
fasmax[y_]:=Complement[y, Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Select[Rest[Subsets[Divisors[n]]], stableQ[#, Divisible]&]]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 05 2019
STATUS
approved