A285572 -id:A285572 - cp's OEIS frontend

A048143 Number of labeled connected simplicial complexes with n nodes.

1, 1, 1, 5, 84, 6348, 7743728, 2414572893530, 56130437190053299918162

Offset: 0

Greg Huber, May 12 1983

Also number of connected antichains on a labeled n-set.

			For n=3 we could have 2 edges (in 3 ways), 3 edges (1 way), or 3 edges and a triangle (1 way), so a(3)=5.
a(5) = 1+75+645+1655+2005+1345+485+115+20+2 = 6348.

Patrick De Causmaecker, Stefan De Wannemacker, On the number of antichains of sets in a finite universe, arXiv:1407.4288 [math.CO], 2014.
Greg Huber, Letters to N. J. A. Sloane, May 1983 [Annotated, corrected, scanned copy]
Gus Wiseman, Every Clutter Is a Tree of Blobs, The Mathematica Journal, Vol. 19, 2017.
Gus Wiseman, Sequences enumerating clutters, antichains, hypertrees, and hyperforests, organized by labeling, spanning, and allowance of singletons.

Cf. A094033, A094034, A094035, A094036, A094037.

Cf. A000666, A006126, A030019, A054921, A120338, A275307, A285572.

More terms from Vladeta Jovovic, Jun 17 2006

Entry revised by N. J. A. Sloane, Jul 27 2006

A304716 Number of integer partitions of n whose distinct parts are connected.

Original entry on oeis.org

1, 2, 2, 3, 2, 5, 2, 6, 4, 9, 3, 15, 4, 18, 12, 25, 11, 41, 17, 54, 36, 72, 44, 113, 69, 145, 113, 204, 153, 302, 220, 394, 343, 541, 475, 771, 662, 1023, 968, 1398, 1314, 1929, 1822, 2566, 2565, 3440, 3446, 4677, 4688, 6187, 6407, 8216, 8544, 10975, 11436

Offset: 1

Gus Wiseman, May 17 2018

nonn

Given a finite set 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. For example, G({6,14,15,35}) is a 4-cycle. A multiset S is said to be connected if G(S) is a connected graph.

			The a(12) = 15 connected integer partitions and their corresponding connected multiset multisystems (see A112798, A302242) are the following.
                     (12): {{1,1,2}}
                    (6 6): {{1,2},{1,2}}
                    (8 4): {{1,1,1},{1,1}}
                    (9 3): {{2,2},{2}}
                   (10 2): {{1,3},{1}}
                  (4 4 4): {{1,1},{1,1},{1,1}}
                  (6 3 3): {{1,2},{2},{2}}
                  (6 4 2): {{1,2},{1,1},{1}}
                  (8 2 2): {{1,1,1},{1},{1}}
                (3 3 3 3): {{2},{2},{2},{2}}
                (4 4 2 2): {{1,1},{1,1},{1},{1}}
                (6 2 2 2): {{1,2},{1},{1},{1}}
              (4 2 2 2 2): {{1,1},{1},{1},{1},{1}}
            (2 2 2 2 2 2): {{1},{1},{1},{1},{1},{1}}
(1 1 1 1 1 1 1 1 1 1 1 1): {{},{},{},{},{},{},{},{},{},{},{},{}}

Cf. A000009, A003963, A048143, A054921, A218970, A285572, A286518, A302242, A304714, A305078, A305079, A322306, A322307.

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]]]]]]]]];
Table[Length[Select[IntegerPartitions[n],Length[zsm[Union[#]]]===1&]],{n,30}]

For n > 1, a(n) = A218970(n) + 1. - Gus Wiseman, Dec 04 2018

Name changed to distinguish from A218970 by Gus Wiseman, Dec 04 2018

A316476 Stable numbers. Numbers whose distinct prime indices are pairwise indivisible.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 15, 16, 17, 19, 23, 25, 27, 29, 31, 32, 33, 35, 37, 41, 43, 45, 47, 49, 51, 53, 55, 59, 61, 64, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 89, 91, 93, 95, 97, 99, 101, 103, 107, 109, 113, 119, 121, 123, 125, 127, 128, 131, 135, 137

Offset: 1

Gus Wiseman, Jul 04 2018

nonn

A prime index of n is a number m such that prime(m) divides n.

			The prime indices of 45 are {2,2,3}, so the distinct prime indices are {2,3}, which are pairwise indivisible, so 45 belongs to the sequence.
The prime indices of 105 are {2,3,4}, which are not pairwise indivisible (2 divides 4), so 105 does not belong to the sequence.

Cf. A056239, A112798, A285572, A285573, A303362, A304713, A316468, A316475, A327393, A327394, A378442 (characteristic function).

Select[Range[100],Select[Tuples[If[#===1,{},Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]]],2],UnsameQ@@#&&Divisible@@#&]=={}&]

ok(n)={my(v=apply(primepi, factor(n)[,1])); for(j=2, #v, for(i=1, j-1, if(v[j]%v[i]==0, return(0)))); 1} \\ Andrew Howroyd, Aug 26 2018

A303362 Number of strict integer partitions of n with pairwise indivisible parts.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 2, 3, 4, 5, 4, 6, 7, 7, 9, 11, 12, 13, 15, 17, 20, 23, 25, 27, 32, 35, 40, 45, 50, 55, 58, 67, 78, 84, 95, 101, 113, 124, 137, 153, 169, 180, 198, 219, 242, 268, 291, 319, 342, 374, 412, 450, 492, 535, 573, 632, 685, 746, 813, 868, 944

Offset: 1

Gus Wiseman, Apr 22 2018

nonn

			The a(14) = 7 strict integer partitions are (14), (11,3), (10,4), (9,5), (8,6), (7,5,2), (7,4,3).

Fausto A. C. Cariboni, Table of n, a(n) for n = 1..450, (terms up to a(250) from Andrew Howroyd)

Cf. A000009, A000837, A003238, A006126, A051424, A259936, A275307, A281116, A285572, A285573, A290103, A293606, A293993, A303364.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Select[Tuples[#,2],UnsameQ@@#&&Divisible@@#&]==={}&]],{n,60}]

lista(nn)={local(Cache=Map());
  my(excl=vector(nn, n, sumdiv(n, d, 2^(n-d))));
  my(a(n, m=n, b=0)=
     if(n==0, 1,
        while(m>n || bittest(b,0), m--; b>>=1);
        my(hk=[n, m, b], z);
        if(!mapisdefined(Cache, hk, &z),
          z = if(m, self()(n, m-1, b>>1) + self()(n-m, m, bitor(b, excl[m])), 0);
          mapput(Cache, hk, z)); z));
   for(n=1, nn, print1(a(n), ", "))
} \\ Andrew Howroyd, Nov 02 2019

A285573 Number of finite nonempty sets of pairwise indivisible divisors of n.

Original entry on oeis.org

1, 2, 2, 3, 2, 5, 2, 4, 3, 5, 2, 9, 2, 5, 5, 5, 2, 9, 2, 9, 5, 5, 2, 14, 3, 5, 4, 9, 2, 19, 2, 6, 5, 5, 5, 19, 2, 5, 5, 14, 2, 19, 2, 9, 9, 5, 2, 20, 3, 9, 5, 9, 2, 14, 5, 14, 5, 5, 2, 49, 2, 5, 9, 7, 5, 19, 2, 9, 5, 19, 2, 34, 2, 5, 9, 9, 5, 19, 2, 20, 5, 5, 2, 49, 5, 5, 5, 14, 2, 49, 5, 9, 5, 5, 5, 27, 2, 9, 9, 19

Offset: 1

Gus Wiseman, Apr 21 2017

nonn

From Robert Israel, Apr 21 2017: (Start)
If n = p^k for prime p, a(n) = k+1.
If n = p^j*q^k for distinct primes p,q, a(n) = binomial(j+k+2,j+1)-1. (End)

			The a(12)=9 sets are: {1}, {2}, {3}, {4}, {6}, {12}, {2,3}, {3,4}, {4,6}.

Cf. A006126, A048143, A076078, A076413, A198085, A285572.

g:= proc(S) local x, Sx; option remember;
   if nops(S) = 0 then return {{}} fi;
   x:= S[1];
   Sx:= subsop(1=NULL,S);
   procname(Sx) union map(t -> t union {x}, procname(remove(s -> s mod x = 0 or x mod s = 0, Sx)))
end proc:
f:= proc(n) local F,D;
  F:= ifactors(n)[2];
  D:= numtheory:-divisors(mul(ithprime(i)^F[i,2],i=1..nops(F)));
  nops(g(D)) - 1;
end proc:
map(f, [$1..100]); # Robert Israel, Apr 21 2017

nn=50;
stableSets[u_,Q_]:=If[Length[u]===0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r===w||Q[r,w]||Q[w,r]],Q]]]];
Table[Length[Rest[stableSets[Divisors[n],Divisible]]],{n,1,nn}]

A304714 Number of connected strict integer partitions of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 2, 3, 2, 5, 2, 5, 5, 6, 5, 10, 6, 12, 12, 13, 14, 21, 17, 23, 26, 30, 31, 46, 38, 51, 55, 61, 70, 87, 85, 102, 116, 128, 138, 171, 169, 204, 225, 245, 272, 319, 334, 383, 429, 464, 515, 593, 629, 715, 790, 861, 950, 1082

Offset: 1

Gus Wiseman, May 17 2018

nonn

Given a finite set 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. For example, G({6,14,15,35}) is a 4-cycle. A multiset S is said to be connected if G(S) is a connected graph.

			The a(19) = 6 strict integer partitions are (19), (9,6,4), (10,5,4), (10,6,3), (12,4,3), (8,6,3,2). Taking the normalized prime factors of each part (see A112798, A302242), we have the following connected multiset multisystems.
       (19): {{8}}
    (9,6,4): {{2,2},{1,2},{1,1}}
   (10,5,4): {{1,3},{3},{1,1}}
   (10,6,3): {{1,3},{1,2},{2}}
   (12,4,3): {{1,1,2},{1,1},{2}}
  (8,6,3,2): {{1,1,1},{1,2},{2},{1}}

The Heinz numbers of these partitions are given by A328513.

Cf. A000009, A003963, A048143, A054921, A076078, A259936, A281116, A285572, A285573, A286518, A286520, A302242.

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]]]]]]]]];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[zsm[#]]===1&]],{n,60}]

A293993 Number of unlabeled multiset antichains of weight n.

Original entry on oeis.org

1, 1, 3, 6, 16, 35, 98, 242, 690

Offset: 0

Gus Wiseman, Oct 21 2017

A multiset antichain is a finite set of finite nonempty multisets, none of which is a submultiset of any other. The weight of an antichain is the sum of cardinalities (counting multiplicity) of its elements.

			Non-isomorphic representatives of the a(4) = 16 antichains are:
((1111)), ((1112)), ((1122)), ((1123)), ((1234)),
((1)(234)), ((2)(111)), ((2)(113)), ((11)(12)), ((11)(22)), ((11)(23)), ((12)(13)), ((12)(34)),
((1)(2)(34)),((2)(3)(11)),
((1)(2)(3)(4)).

Cf. A007716, A285572, A293606, A293994.

Euler transform of A293994.

A286520 Number of finite connected sets of pairwise indivisible positive integers greater than one with least common multiple n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 5, 1, 1, 1, 1, 1, 5, 1, 1, 1, 3, 1, 5, 1, 2, 2, 1, 1, 4, 1, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 17, 1, 1, 2, 1, 1, 5, 1, 2, 1, 5, 1, 9, 1, 1, 2, 2, 1, 5, 1, 4, 1, 1, 1, 17, 1, 1, 1

Offset: 2

Gus Wiseman, Jul 24 2017

nonn

Given a finite set 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 that are not relatively prime. For example, G({6,14,15,35}) is a 4-cycle. A set S is said to be connected if G(S) is a connected graph.

			The a(30)=5 sets are: {30}, {6,10}, {6,15}, {10,15}, {6,10,15}.

Cf. A048143, A054921, A076078, A259936, A281116, A285572, A285573, A286518.

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]]]]]]]]];
Table[Length[Select[Subsets[Rest[Divisors[n]]],And[!MemberQ[Tuples[#,2],{x_,y_}/;And[x

A286518 Number of finite connected sets of positive integers greater than one with least common multiple n.

Original entry on oeis.org

1, 1, 1, 2, 1, 4, 1, 4, 2, 4, 1, 20, 1, 4, 4, 8, 1, 20, 1, 20, 4, 4, 1, 88, 2, 4, 4, 20, 1, 96, 1, 16, 4, 4, 4, 196, 1, 4, 4, 88, 1, 96, 1, 20, 20, 4, 1, 368, 2, 20, 4, 20, 1, 88, 4, 88, 4, 4, 1, 1824, 1, 4, 20, 32, 4, 96, 1, 20, 4, 96, 1, 1688, 1, 4, 20, 20, 4, 96, 1, 368, 8, 4, 1, 1824, 4, 4, 4, 88, 1, 1824, 4, 20

Offset: 1

Gus Wiseman, Jul 24 2017

nonn

Given a finite set 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 that are not relatively prime. For example, G({6,14,15,35}) is a 4-cycle. A set S is said to be connected if G(S) is a connected graph.

a(n) depends only on prime signature of n (cf. A025487). - Antti Karttunen, Feb 17 2024

			The a(6)=4 sets are: {6}, {2,6}, {3,6}, {2,3,6}.

Antti Karttunen, Table of n, a(n) for n = 1..719
Index entries for sequences computed from exponents in factorization of n

Cf. A048143, A054921, A069626, A076078, A259936, A281116, A285572, A285573, A286520, A305193, A318670.

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]]]]]]]]];
Table[Length[Select[Subsets[Rest[Divisors[n]]],zsm[#]==={n}&]],{n,2,20}]

isconnected(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)); };
A286518aux(n, parts, from=1, ss=List([])) = { my(k = #parts, s=0, newss); if(lcm(Vec(ss))==n && isconnected(ss), s++); for(i=from, k, newss = List(ss); listput(newss, parts[i]); s += A286518aux(n, parts, i+1, newss)); (s) };
A286518(n) = if(1==n, n, A286518aux(n, divisors(n))); \\ Antti Karttunen, Feb 17 2024

From Antti Karttunen, Feb 17 2024: (Start)
a(n) <= A069626(n).
It seems that a(n) >= A318670(n), for all n > 1.
(End)

Term a(1)=1 prepended and more terms added by Antti Karttunen, Feb 17 2024

A074761 Number of partitions of n of order n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 9, 1, 4, 5, 1, 1, 12, 1, 27, 7, 6, 1, 81, 1, 7, 1, 54, 1, 407, 1, 1, 11, 9, 13, 494, 1, 10, 13, 423, 1, 981, 1, 137, 115, 12, 1, 1309, 1, 59, 17, 193, 1, 240, 21, 1207, 19, 15, 1, 47274, 1, 16, 239, 1, 25, 3284, 1, 333, 23, 3731, 1, 42109, 1, 19

Offset: 1

Vladeta Jovovic, Sep 28 2002

Order of partition is lcm of its parts.

a(n) is the number of conjugacy classes of the symmetric group S_n such that a representative of the class has order n. Here order means the order of an element of a group. Note that a(n) = 1 if and only if n is a prime power. - W. Edwin Clark, Aug 05 2014

			The a(15) = 5 partitions are (15), (5,3,3,3,1), (5,5,3,1,1), (5,3,3,1,1,1,1), (5,3,1,1,1,1,1,1,1). - _Gus Wiseman_, Aug 01 2018

Joerg Arndt and Alois P. Heinz, Table of n, a(n) for n = 1..4000 (first 1025 terms from Joerg Arndt)

Cf. A018818, A074351, A074752.
Main diagonal of A256067, A256554.
Cf. A000837, A074761, A285572, A290103, A305566, A316429, A316431, A316432, A316433, A317624.

A:= proc(n)
      uses numtheory;
      local S;
    S:= add(mobius(n/i)*1/mul(1-x^j,j=divisors(i)),i=divisors(n));
    coeff(series(S,x,n+1),x,n);
end proc:
seq(A(n),n=1..100); # Robert Israel, Aug 06 2014

a[n_] := With[{s = Sum[MoebiusMu[n/i]*1/Product[1-x^j, {j, Divisors[i]}], {i, Divisors[n]}]}, SeriesCoefficient[s, {x, 0, n}]]; Array[a, 80] (* Jean-François Alcover, Feb 29 2016 *)
Table[Length[Select[IntegerPartitions[n],LCM@@#==n&]],{n,50}] (* Gus Wiseman, Aug 01 2018 *)

pr(k, x)={my(t=1); fordiv(k, d, t *= (1-x^d) ); return(t); }
a(n) =
{
    my( x = 'x+O('x^(n+1)) );
    polcoeff( Pol( sumdiv(n, i, moebius(n/i) / pr(i, x) ) ), n );
}
vector(66, n, a(n) )
\\ Joerg Arndt, Aug 06 2014

Coefficient of x^n in expansion of Sum_{i divides n} A008683(n/i)*1/Product_{j divides i} (1-x^j).

cp's OEIS Frontend

A048143 Number of labeled connected simplicial complexes with n nodes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Extensions

A304716 Number of integer partitions of n whose distinct parts are connected.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A316476 Stable numbers. Numbers whose distinct prime indices are pairwise indivisible.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A303362 Number of strict integer partitions of n with pairwise indivisible parts.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A285573 Number of finite nonempty sets of pairwise indivisible divisors of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

A304714 Number of connected strict integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A293993 Number of unlabeled multiset antichains of weight n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

A286520 Number of finite connected sets of pairwise indivisible positive integers greater than one with least common multiple n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A286518 Number of finite connected sets of positive integers greater than one with least common multiple n.

Views