cp's OEIS Frontend

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.

A326082 Number of maximal sets of pairwise indivisible divisors of n.

This page as a plain text file.
%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