This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A326082 #6 Jun 07 2019 07:45:56 %S A326082 1,2,2,3,2,3,2,4,3,3,2,5,2,3,3,5,2,5,2,5,3,3,2,8,3,3,4,5,2,7,2,6,3,3, %T A326082 3,9,2,3,3,8,2,7,2,5,5,3,2,12,3,5,3,5,2,8,3,8,3,3,2,15,2,3,5,7,3,7,2, %U A326082 5,3,7,2,15,2,3,5,5,3,7,2,12,5,3,2,15,3 %N A326082 Number of maximal sets of pairwise indivisible divisors of n. %C A326082 Depends only on prime signature. %C A326082 The non-maximal case is A096827. %e A326082 The maximal sets of pairwise indivisible divisors of n = 1, 2, 4, 8, 12, 24, 30, 32, 36, 48, 60 are: %e A326082 1 1 1 1 1 1 1 1 1 1 1 %e A326082 2 2 2 12 24 30 2 36 48 60 %e A326082 4 4 2,3 2,3 5,6 4 2,3 2,3 2,15 %e A326082 8 3,4 3,4 2,15 8 2,9 3,4 3,20 %e A326082 4,6 3,8 3,10 16 3,4 3,8 4,30 %e A326082 4,6 2,3,5 32 4,18 4,6 5,12 %e A326082 6,8 6,10,15 9,12 6,8 2,3,5 %e A326082 8,12 12,18 3,16 3,4,5 %e A326082 4,6,9 6,16 4,5,6 %e A326082 8,12 3,4,10 %e A326082 12,16 6,15,20 %e A326082 16,24 10,12,15 %e A326082 12,15,20 %e A326082 12,20,30 %e A326082 4,6,10,15 %t A326082 stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}]; %t A326082 fasmax[y_]:=Complement[y,Union@@(Most[Subsets[#]]&/@y)]; %t A326082 Table[Length[fasmax[Select[Rest[Subsets[Divisors[n]]],stableQ[#,Divisible]&]]],{n,100}] %Y A326082 Cf. A001055, A051026, A067992, A096827, A143824, A285572, A285573, A303362, A305148, A305149, A316476, A325861, A326023, A326077. %K A326082 nonn %O A326082 1,2 %A A326082 _Gus Wiseman_, Jun 05 2019