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.

Previous Showing 11-20 of 21 results. Next

A317751 Number of divisors d of n such that there exists a factorization of n into factors > 1 with GCD d.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 3, 1, 2, 2, 3, 1, 3, 1, 3, 2, 2, 1, 3, 2, 2, 2, 3, 1, 2, 1, 3, 2, 2, 2, 5, 1, 2, 2, 3, 1, 2, 1, 3, 3, 2, 1, 4, 2, 3, 2, 3, 1, 3, 2, 3, 2, 2, 1, 3, 1, 2, 3, 4, 2, 2, 1, 3, 2, 2, 1, 5, 1, 2, 3, 3, 2, 2, 1, 4, 3, 2, 1, 3, 2, 2, 2, 3, 1, 3, 2, 3, 2, 2, 2, 4, 1, 3, 3, 5, 1, 2, 1, 3, 2
Offset: 1

Views

Author

Gus Wiseman, Aug 06 2018

Keywords

Comments

Also the number of distinct possible GCDs of factorizations of n into factors > 1.
Also the number of nonzero terms in row n of A317748.
a(prime^n) = A008619(n).
If n is squarefree and composite, a(n) = 2.

Examples

			The divisors of 36 that are possible GCDs of factorizations of 36 are {1, 2, 3, 6, 36}, so a(36) = 5.

Links

Crossrefs

Cf. A000005, A000837, A001055, A014963, A045778, A050370, A162247, A281116, A289509.
Cf. A317748, A317752, A317755, A317757.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
goc[n_,m_]:=Length[Select[facs[n],And[And@@(Divisible[#,m]&/@#),GCD@@(#/m)==1]&]];
Table[Length[Select[Divisors[n],goc[n,#]!=0&]],{n,100}]
  • PARI
    A317751aux(n, m, facs, gcds) = if(1==n, setunion([gcd(Vec(facs))],gcds), my(newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); gcds = setunion(gcds,A317751aux(n/d, d, newfacs, gcds)))); (gcds));
A317751(n) = if(1==n,0,length(A317751aux(n, n, List([]), Set([])))); \\ Antti Karttunen, Sep 08 2018

Extensions

More terms from Antti Karttunen, Sep 08 2018

A319790 Number of non-isomorphic connected multiset partitions of weight n with empty intersection.

Original entry on oeis.org

1, 0, 0, 0, 1, 5, 32, 134, 588, 2335, 9335, 36506, 144263, 571238, 2291894, 9300462, 38303796, 160062325, 679333926, 2927951665, 12817221628, 56974693933, 257132512297, 1177882648846, 5475237760563, 25818721638720, 123473772356785, 598687942799298, 2942344764127039
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

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

Examples

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

Links

Crossrefs

Cf. A007716, A007718, A049311, A056156, A283877, A317752, A317755, A317757.
Cf. A319077, A319748, A319755, A319778, A319781, A319791.

Formula

a(n) = A007718(n) - A007716(n) + A317757(n). - Andrew Howroyd, May 31 2023

Extensions

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

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

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

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

Examples

			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}}

Links

Crossrefs

Cf. A007716, A007718, A049311, A056156, A281116, A283877, A317752, A317755, A317757.
Cf. A319077, A319748, A319755, A319778, A319781, A319790.

Formula

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

Extensions

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

A319764 Number of non-isomorphic intersecting set systems of weight n with empty intersection.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 1, 1, 3, 8, 18
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A set system is a finite set of finite nonempty sets. It is intersecting if no two parts are disjoint. The weight of a set system is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

Examples

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

Crossrefs

Cf. A007716, A281116, A283877, A305854, A306006, A316980, A317752, A317755, A317757, A318715, A318717.
Cf. A319752, A319759, A319762, A319763, A319765, A319779, A319781.

A319775 Number of non-isomorphic multiset partitions of weight n with empty intersection and no part containing all the vertices.

Original entry on oeis.org

1, 0, 1, 4, 16, 52, 185, 625, 2226, 7840, 28405
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

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

Examples

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

Crossrefs

Cf. A007716, A281116, A283877, A316980, A317752, A317755, A317757.
Cf. A319778, A319779, A319781, A319783.

A319783 Number of set systems spanning n vertices with empty intersection whose dual is also a set system with empty intersection.

Original entry on oeis.org

1, 0, 0, 1, 203, 490572
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

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}}.

Examples

			The a(3) = 1 set system is {{1,2},{1,3},{2,3}}.

Crossrefs

Cf. A007716, A049311, A281116, A283877, A316980, A317752, A317755, A317757.
Cf. A319775, A319778, A319779, A319781.

A319751 Number of non-isomorphic set systems of weight n with empty intersection.

Original entry on oeis.org

1, 0, 1, 2, 6, 13, 35, 83, 217, 556, 1504, 4103, 11715, 34137, 103155, 320217, 1025757, 3376889, 11436712, 39758152, 141817521, 518322115, 1939518461, 7422543892, 29028055198, 115908161428, 472185530376, 1961087909565, 8298093611774, 35750704171225, 156734314212418
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A set system is a finite set of finite nonempty sets. Its weight is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

Examples

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

Links

Crossrefs

Cf. A007716, A049311, A281116, A283877, A316980, A317752, A317755, A317757, A319616.
Cf. A319077, A319748, A319755, A319778, A319781, A319791.

Programs

  • PARI
    WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, (-1)^(n-1)/n))))-1, -#v)}
permcount(v) = {my(m=1, s=0, k=0, t); for(i=1, #v, t=v[i]; k=if(i>1&&t==v[i-1], k+1, 1); m*=t*k; s+=t); s!/m}
K(q, t, k)={WeighT(Vec(sum(j=1, #q, gcd(t, q[j])*x^lcm(t, q[j])) + O(x*x^k), -k))}
R(q, n)={vector(n, t, x*Ser(K(q, t, n)/t))}
a(n)={if(n==0, 1, my(s=0); forpart(q=n, my(u=R(q,n)); s+=permcount(q)*polcoef(exp(sum(t=1, n, u[t]-subst(u[t],x,x^2), O(x*x^n))) - exp(sum(t=1, n\2, x^t*u[t] - subst(x^t*u[t],x,x^2), O(x*x^n)))*(1+x), n)); s/n!)} \\ Andrew Howroyd, May 30 2023

Extensions

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

A326911 BII-numbers of set-systems with empty intersection.

Original entry on oeis.org

0, 3, 7, 9, 10, 11, 12, 13, 14, 15, 18, 19, 22, 23, 25, 26, 27, 28, 29, 30, 31, 33, 35, 37, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 67, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 86, 87, 89, 90, 91, 92, 93, 94, 95
Offset: 1

Views

Author

Gus Wiseman, Aug 04 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. Every finite set of finite nonempty sets has a different BII-number. For example, 18 has reversed binary expansion (0,1,0,0,1), and since the binary indices of 2 and 5 are {2} and {1,3} respectively, the BII-number of {{2},{1,3}} is 18. Elements of a set-system are sometimes called edges.

Examples

			The sequence of all set-systems with empty intersection together with their BII-numbers begins:
   0: {}
   3: {{1},{2}}
   7: {{1},{2},{1,2}}
   9: {{1},{3}}
  10: {{2},{3}}
  11: {{1},{2},{3}}
  12: {{1,2},{3}}
  13: {{1},{1,2},{3}}
  14: {{2},{1,2},{3}}
  15: {{1},{2},{1,2},{3}}
  18: {{2},{1,3}}
  19: {{1},{2},{1,3}}
  22: {{2},{1,2},{1,3}}
  23: {{1},{2},{1,2},{1,3}}
  25: {{1},{3},{1,3}}
  26: {{2},{3},{1,3}}
  27: {{1},{2},{3},{1,3}}
  28: {{1,2},{3},{1,3}}
  29: {{1},{1,2},{3},{1,3}}
  30: {{2},{1,2},{3},{1,3}}

Crossrefs

Cf. A048793, A051185, A305843, A317752, A317755, A317757, A319077, A326031, A326910, A326912.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Select[Range[0,100],#==0||Intersection@@bpe/@bpe[#]=={}&]

A319784 Number of non-isomorphic intersecting T_0 set systems of weight n.

Original entry on oeis.org

1, 1, 0, 1, 1, 1, 3, 5, 7, 14, 25
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A multiset partition is intersecting if no two parts are disjoint. The weight of a multiset partition is the sum of sizes of its parts. 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 T_0 condition means the dual is strict.

Examples

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

Crossrefs

Cf. A007716, A049311, A283877, A305843, A305854, A306006, A316980, A317752.
Cf. A319755, A319759, A319760, A319765, A319779, A319787, A319782, A319789.

A319792 Number of non-isomorphic connected set systems of weight n with empty intersection.

Original entry on oeis.org

1, 0, 0, 0, 1, 2, 9, 22, 69, 190, 567, 1640, 5025, 15404, 49048, 159074, 531165, 1813627, 6352739, 22759620, 83443086, 312612543, 1196356133, 4672620842, 18615188819, 75593464871, 312729620542, 1317267618429, 5646454341658, 24618309943464, 109123789229297
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

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

Examples

			Non-isomorphic representatives of the a(4) = 1 through a(6) = 9 connected set systems:
4:   {{1},{2},{1,2}}
5:  {{2},{3},{1,2,3}}
    {{2},{1,3},{2,3}}
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,3},{2,3}}
  {{2},{3},{1,3},{2,3}}

Links

Crossrefs

Cf. A007716, A007718, A049311, A056156, A281116, A283877, A300913, A305854, A316980, A317752, A317755, A317757.
Cf. A319077, A319748, A319751, A319755, A319778, A319781, A319790.

Formula

a(n) = A300913(n) - A283877(n) + A319751(n). - Andrew Howroyd, May 31 2023

Extensions

Terms a(11) and beyond from Andrew Howroyd, May 31 2023
Previous Showing 11-20 of 21 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.