A281116 -id:A281116 - cp's OEIS frontend

A319768 Number of non-isomorphic strict multiset partitions (sets of multisets) of weight n whose dual is a (not necessarily strict) intersecting multiset partition.

1, 1, 2, 5, 11, 25, 63, 144, 364, 905, 2356

Offset: 0

Gus Wiseman, Sep 27 2018

The dual of a multiset partition has, for each vertex, one part consisting of the indices (or positions) of the parts containing that vertex, counted with multiplicity. For example, the dual of {{1,2},{2,2}} is {{1},{1,2,2}}.
The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.
A multiset partition is intersecting iff no two parts are disjoint. The dual of a multiset partition is intersecting iff every pair of distinct vertices appear together in some part.

			Non-isomorphic representatives of the a(1) = 1 through a(4) = 11 multiset partitions:
1: {{1}}
2: {{1,1}}
   {{1,2}}
3: {{1,1,1}}
   {{1,2,2}}
   {{1,2,3}}
   {{1},{1,1}}
   {{2},{1,2}}
4: {{1,1,1,1}}
   {{1,1,2,2}}
   {{1,2,2,2}}
   {{1,2,3,3}}
   {{1,2,3,4}}
   {{1},{1,1,1}}
   {{1},{1,2,2}}
   {{2},{1,2,2}}
   {{3},{1,2,3}}
   {{1,2},{2,2}}
   {{1},{2},{1,2}}

Cf. A007716, A281116, A283877, A305854, A306006, A316980, A316983, A317757, A319616.

Cf. A319752, A319765, A319766, A319767, A319769, A319773, A319774.

A319769 Number of non-isomorphic intersecting set multipartitions (multisets of sets) of weight n whose dual is also an intersecting set multipartition.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 12, 16, 26, 38, 61

Offset: 0

Gus Wiseman, Sep 27 2018

The dual of a multiset partition has, for each vertex, one part consisting of the indices (or positions) of the parts containing that vertex, counted with multiplicity. For example, the dual of {{1,2},{2,2}} is {{1},{1,2,2}}.
The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.
A multiset partition is intersecting iff no two parts are disjoint. The dual of a multiset partition is intersecting iff every pair of distinct vertices appear together in some part.

			Non-isomorphic representatives of the a(1) = 1 through a(5) = 7 set multipartitions:
1: {{1}}
2: {{1,2}}
   {{1},{1}}
3: {{1,2,3}}
   {{2},{1,2}}
   {{1},{1},{1}}
4: {{1,2,3,4}}
   {{3},{1,2,3}}
   {{1,2},{1,2}}
   {{2},{2},{1,2}}
   {{1},{1},{1},{1}}
5: {{1,2,3,4,5}}
   {{4},{1,2,3,4}}
   {{2,3},{1,2,3}}
   {{2},{1,2},{1,2}}
   {{3},{3},{1,2,3}}
   {{2},{2},{2},{1,2}}
   {{1},{1},{1},{1},{1}}

Cf. A007716, A281116, A283877, A305854, A306006, A316980, A316983, A317757, A319616.

Cf. A319752, A319765, A319766, A319767, A319768, A319773, A319774.

A319773 Number of non-isomorphic intersecting set systems of weight n whose dual is also an intersecting set system.

Original entry on oeis.org

1, 1, 0, 1, 0, 0, 2, 1, 2, 4, 5

Offset: 0

Gus Wiseman, Sep 27 2018

The dual of a multiset partition has, for each vertex, one part consisting of the indices (or positions) of the parts containing that vertex, counted with multiplicity. For example, the dual of {{1,2},{2,2}} is {{1},{1,2,2}}.
The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.
A multiset partition is intersecting iff no two parts are disjoint. The dual of a multiset partition is intersecting iff every pair of distinct vertices appear together in some part.

			Non-isomorphic representatives of the a(1) = 1 through a(10) = 5 set systems:
1:  {{1}}
3:  {{2},{1,2}}
6:  {{3},{2,3},{1,2,3}}
    {{1,2},{1,3},{2,3}}
7:  {{1,3},{2,3},{1,2,3}}
8:  {{2,4},{3,4},{1,2,3,4}}
    {{3},{1,3},{2,3},{1,2,3}}
9:  {{1,2,4},{1,3,4},{2,3,4}}
    {{4},{2,4},{3,4},{1,2,3,4}}
    {{1,2},{1,3},{1,4},{2,3,4}}
    {{1,2},{1,3},{2,3},{1,2,3}}
10: {{4},{3,4},{2,3,4},{1,2,3,4}}
    {{4},{1,2,4},{1,3,4},{2,3,4}}
    {{1,2},{2,4},{1,3,4},{2,3,4}}
    {{1,4},{2,4},{3,4},{1,2,3,4}}
    {{2,3},{2,4},{3,4},{1,2,3,4}}

Cf. A007716, A281116, A283877, A305854, A306006, A316980, A316983, A317757, A319616.

Cf. A319752, A319765, A319766, A319767, A319768, A319769, A319774.

A327534 Numbers that are 1, prime, or whose prime indices are relatively prime.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 64, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76

Offset: 1

Gus Wiseman, Sep 17 2019

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. Numbers whose prime indices are relatively prime are A289509.

			91 = 7 * 13 has prime indices {4,6}, which have a common divisor of 2, so 91 is not in the sequence.

Gus Wiseman, Sequences counting and encoding certain classes of multisets

See link for additional cross-references.
Complement of A327407.
Cf. A056239, A112798, A281116, A289509, A302569.

Select[Range[100],#==1||PrimeQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1&]

Equals the union of {1}, A000040, and A289509.

A327656 Maximum divisor of n that is 1 or whose prime indices have a common divisor > 1.

Original entry on oeis.org

1, 1, 3, 1, 5, 3, 7, 1, 9, 5, 11, 3, 13, 7, 5, 1, 17, 9, 19, 5, 21, 11, 23, 3, 25, 13, 27, 7, 29, 5, 31, 1, 11, 17, 7, 9, 37, 19, 39, 5, 41, 21, 43, 11, 9, 23, 47, 3, 49, 25, 17, 13, 53, 27, 11, 7, 57, 29, 59, 5, 61, 31, 63, 1, 65, 11, 67, 17, 23, 7, 71, 9, 73

Offset: 1

Gus Wiseman, Sep 21 2019

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. Numbers whose prime indices have a common divisor > 1 are listed in A318978, which is the union of this sequence without 1.

			The divisors of 90 that are 1 or whose prime indices have a common divisor > 1 are {1, 3, 5, 9}, so a(90) = 9.

Antti Karttunen, Table of n, a(n) for n = 1..20000
Gus Wiseman, Sequences counting and encoding certain classes of multisets
Index entries for sequences computed from indices in prime factorization

The union consists of {1} followed by A318978.
See link for additional cross-references.
Cf. A000005, A006530, A056239, A112798, A281116, A289509, A327406, A327657.

Table[Max[Select[Divisors[n],GCD@@PrimePi/@First/@FactorInteger[#]!=1&]],{n,100}]

A327656(n) = vecmax(select(d -> (1==d)||(gcd(apply(primepi,factor(d)[, 1]~))>1), divisors(n))); \\ Antti Karttunen, Dec 06 2021

a(n) = n/A327405(n).

n belongs to A318978 iff a(n) = 1.

A318749 Number of pairwise relatively nonprime strict factorizations of n (no two factors are coprime).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 5, 1, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 3, 1, 1, 2, 4, 1, 1, 1, 2, 1, 1, 1, 5, 1, 1, 2, 2, 1, 1, 1, 5, 2, 1, 1, 3, 1, 1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 7, 1, 2, 2, 3, 1, 1, 1, 3, 1

Offset: 1

Gus Wiseman, Sep 02 2018

nonn

a(n) depends only on prime signature of n (cf. A025487). - Antti Karttunen, Oct 08 2018

			The a(96) = 7 factorizations are (96), (2*48), (4*24), (6*16), (8*12), (2*4*12), (2*6*8).
The a(480) = 18 factorizations:
  (480)
  (2*240) (4*120) (6*80) (8*60) (10*48) (12*40) (16*30) (20*24)
  (2*4*60) (2*6*40) (2*8*30) (2*10*24) (2*12*20) (4*6*20) (4*10*12) (6*8*10)
  (2*4*6*10)

Antti Karttunen, Table of n, a(n) for n = 1..10000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000
Index entries for sequences computed from exponents in factorization of n

Cf. A001055, A045778, A051185, A281116, A303282, A305843, A305854, A317748, A318715, A318717, A318721.

strfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#1,d]&)/@Select[strfacs[n/d],Min@@#1>d&],{d,Rest[Divisors[n]]}]];
Table[Length[Select[strfacs[n],And@@(GCD[##]>1&)@@@Select[Tuples[#,2],Less@@#&]&]],{n,50}]

A318749(n, m=n, facs=List([])) = if(1==n, (1!=gcd(Vec(facs))), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A318749(n/d, d-1, newfacs))); (s)); \\ Antti Karttunen, Oct 08 2018

More terms from Antti Karttunen, Oct 08 2018

A319791 Number of non-isomorphic connected set multipartitions (multisets of sets) of weight n with empty intersection.

Original entry on oeis.org

1, 0, 0, 0, 1, 3, 14, 38, 125, 360, 1107, 3297, 10292, 32134, 103759, 340566, 1148150, 3951339, 13925330, 50122316, 184365292, 692145409, 2651444318, 10356184440, 41224744182, 167150406897, 689998967755, 2898493498253, 12384852601731, 53804601888559, 237566072006014

Offset: 0

Gus Wiseman, Sep 27 2018

nonn

The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

			Non-isomorphic representatives of the a(4) = 1 through a(6) = 14 set multipartitions:
4:    {{1},{2},{1,2}}
5:   {{2},{3},{1,2,3}}
     {{2},{1,3},{2,3}}
    {{1},{2},{2},{1,2}}
6:  {{1},{1,4},{2,3,4}}
    {{1},{2,3},{1,2,3}}
    {{3},{4},{1,2,3,4}}
    {{3},{1,4},{2,3,4}}
    {{1,2},{1,3},{2,3}}
    {{1,3},{2,4},{3,4}}
   {{1},{2},{3},{1,2,3}}
   {{1},{2},{1,2},{1,2}}
   {{1},{2},{1,3},{2,3}}
   {{2},{2},{1,3},{2,3}}
   {{2},{3},{3},{1,2,3}}
   {{2},{3},{1,3},{2,3}}
  {{1},{1},{2},{2},{1,2}}
  {{1},{2},{2},{2},{1,2}}

Andrew Howroyd, Table of n, a(n) for n = 0..50

Cf. A007716, A007718, A049311, A056156, A281116, A283877, A317752, A317755, A317757.

Cf. A319077, A319748, A319755, A319778, A319781, A319790.

a(n) = A056156(n) - A049311(n) + A319748(n). - Andrew Howroyd, May 31 2023

Terms a(11) and beyond from Andrew Howroyd, May 31 2023

A327406 Number of steps to reach a fixed point starting with n and repeatedly taking the quotient by the maximum divisor that is 1 or whose prime indices have a common divisor > 1 (A327405, A327656).

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 0, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2

Offset: 1

Gus Wiseman, Sep 21 2019

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. Numbers whose prime indices have a common divisor > 1 are listed in A318978.

Note that A318978 includes also all odd primes and their powers, thus the only numbers for which a maximum such divisor is 1 are the powers of 2. Therefore A000079 gives the indices of zeros in this sequence. - Antti Karttunen, Dec 06 2021

			We have 5115 -> 165 -> 15 -> 3 -> 1, so a(5115) = 4.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Gus Wiseman, Sequences counting and encoding certain classes of multisets
Index entries for sequences computed from indices in prime factorization

First appearance of n is A080696(n).
See link for additional cross-references.
Cf. A000005, A000079 (positions of 0's), A056239, A112798, A281116, A289509, A302569, A318978.

Table[Length[FixedPointList[#/Max[Select[Divisors[#],GCD@@PrimePi/@First/@FactorInteger[#]!=1&]]&,n]]-2,{n,100}]

A327405(n) = (n / vecmax(select(d -> (1==d)||(gcd(apply(primepi,factor(d)[, 1]~))>1), divisors(n))));
A327406(n) = { my(u = A327405(n), k=0); while(u!=n, k++; n = u; u = A327405(n)); (k); }; \\ Antti Karttunen, Dec 06 2021

Data section extended up to 105 terms by Antti Karttunen, Dec 06 2021

A305253 Number of connected factorizations of n into factors greater than 1 whose distinct factors are pairwise indivisible.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 2, 1

Offset: 1

Gus Wiseman, May 28 2018

nonn

Given a finite multiset S of positive integers greater than one, let G(S) be the simple labeled graph with vertex set S and edges between any two vertices with a common divisor greater than 1. For example, G({6,14,15,35}) is a 4-cycle. This sequence counts factorizations S whose distinct factors are pairwise indivisible and such that G(S) is a connected graph.

			The a(360) = 8 factorizations: (360), (4*90), (10*36), (12*30), (15*24), (18*20), (4*6*15), (6*6*10).

Antti Karttunen, Table of n, a(n) for n = 1..20160
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000
Index entries for sequences computed from exponents in factorization of n

Cf. A001970, A048143, A281116, A285572, A286518, A286520, A303386, A304714, A304716, A305149, A305150, A305193.

zsm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[Less@@#,GCD@@s[[#]]]>1&]},If[c=={},s,zsm[Union[Append[Delete[s,List/@c[[1]]],LCM@@s[[c[[1]]]]]]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
sacs[n_]:=Select[facs[n],Function[f,Length[zsm[f]]==1&&Select[Tuples[Union[f],2],UnsameQ@@#&&Divisible@@#&]=={}]]
Table[Length[sacs[n]],{n,500}]

is_connected(facs) = { my(siz=length(facs)); if(1==siz,1,my(m=matrix(siz,siz,i,j,(gcd(facs[i],facs[j])!=1))^siz); for(n=1,siz,if(0==vecmin(m[n,]),return(0))); (1)); };
A305253aux(n, m, facs) = if(1==n, is_connected(Vec(facs)), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m)&&factorback(apply(x -> (x==d)||(x%d),Vec(facs))), newfacs = List(facs); listput(newfacs,d); s += A305253aux(n/d, d, newfacs))); (s));
A305253(n) = if(1==n,0,A305253aux(n, n, List([]))); \\ Antti Karttunen, Dec 06 2018

a(n) <= A305193(n) <= A001055(n). - Antti Karttunen, Dec 06 2018

Definition clarified by Gus Wiseman, more terms from Antti Karttunen, Dec 06 2018

A305564 Number of finite sets of relatively prime positive integers with least common multiple n.

Original entry on oeis.org

1, 1, 1, 2, 1, 7, 1, 4, 2, 7, 1, 32, 1, 7, 7, 8, 1, 32, 1, 32, 7, 7, 1, 136, 2, 7, 4, 32, 1, 193, 1, 16, 7, 7, 7, 322, 1, 7, 7, 136, 1, 193, 1, 32, 32, 7, 1, 560, 2, 32, 7, 32, 1, 136, 7, 136, 7, 7, 1, 3464, 1, 7, 32, 32, 7, 193, 1, 32, 7, 193, 1, 2852, 1, 7

Offset: 1

Gus Wiseman, Jun 05 2018

nonn

			The a(6) = 7 sets are {1,6}, {2,3}, {1,2,3}, {1,2,6}, {1,3,6}, {2,3,6}, {1,2,3,6}.

Cf. A001055, A071625, A076078, A181819, A275870, A281116, A285573, A285572, A290103, A304818, A305563, A305565, A305566, A305567.

Table[Length[Select[Rest[Subsets[Divisors[n]]],And[GCD@@#==1,LCM@@#==n]&]],{n,100}]

cp's OEIS Frontend

A319768 Number of non-isomorphic strict multiset partitions (sets of multisets) of weight n whose dual is a (not necessarily strict) intersecting multiset partition.

Views

Author

Keywords

Comments

Examples

Crossrefs

A319769 Number of non-isomorphic intersecting set multipartitions (multisets of sets) of weight n whose dual is also an intersecting set multipartition.

Views

Author

Keywords

Comments

Examples

Crossrefs

A319773 Number of non-isomorphic intersecting set systems of weight n whose dual is also an intersecting set system.

Views

Author

Keywords

Comments

Examples

Crossrefs

A327534 Numbers that are 1, prime, or whose prime indices are relatively prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A327656 Maximum divisor of n that is 1 or whose prime indices have a common divisor > 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A318749 Number of pairwise relatively nonprime strict factorizations of n (no two factors are coprime).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A319791 Number of non-isomorphic connected set multipartitions (multisets of sets) of weight n with empty intersection.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

Extensions

A327406 Number of steps to reach a fixed point starting with n and repeatedly taking the quotient by the maximum divisor that is 1 or whose prime indices have a common divisor > 1 (A327405, A327656).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A305253 Number of connected factorizations of n into factors greater than 1 whose distinct factors are pairwise indivisible.