A368094 -id:A368094 - cp's OEIS frontend

A370588 Number of subsets of {1..n} containing n such that only one set can be obtained by choosing a different prime factor of each element.

0, 0, 1, 2, 2, 6, 6, 18, 12, 20, 36, 104, 76, 284, 320, 408, 252, 1548, 872, 3968, 2800, 4704, 8568, 24008, 10832, 14832, 40688, 18240, 43632, 176240, 97344, 449824, 95328, 404992, 760752, 698864, 436464, 3296048, 3564576, 4057904, 2677776, 16892352, 8676576

Offset: 0

Gus Wiseman, Feb 28 2024

nonn

For example, the only choice of a different prime factor of each element of (4,5,6) is (2,5,3), so {4,5,6} is counted under a(6).

			The a(0) = 0 through a(8) = 12 subsets:
  .  .  {2}  {3}    {4}    {5}      {2,6}    {7}        {8}
             {2,3}  {3,4}  {2,5}    {3,6}    {2,7}      {3,8}
                           {3,5}    {4,6}    {3,7}      {5,8}
                           {4,5}    {2,5,6}  {4,7}      {6,8}
                           {2,3,5}  {3,5,6}  {5,7}      {7,8}
                           {3,4,5}  {4,5,6}  {2,3,7}    {3,5,8}
                                             {2,5,7}    {3,7,8}
                                             {2,6,7}    {5,6,8}
                                             {3,4,7}    {5,7,8}
                                             {3,5,7}    {6,7,8}
                                             {3,6,7}    {3,5,7,8}
                                             {4,5,7}    {5,6,7,8}
                                             {4,6,7}
                                             {2,3,5,7}
                                             {2,5,6,7}
                                             {3,4,5,7}
                                             {3,5,6,7}
                                             {4,5,6,7}

First differences of A370584, cf. A370582, complement A370583.
For any number of choices we have A370586, complement A370587.
For binary indices see A370638, A370639, complement A370589.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, indices A112798, length A001222.
A355741 counts choices of a prime factor of each prime index.
A367902 counts choosable set-systems, ranks A367906, unlabeled A368095.
A367903 counts non-choosable set-systems, ranks A367907, unlabeled A368094.
A368098 counts choosable unlabeled multiset partitions, complement A368097.
A368100 ranks choosable multisets, complement A355529.
A368414 counts choosable factorizations, complement A368413.
A370585 counts maximal choosable sets.
A370592 counts choosable partitions, complement A370593.
A370636 counts choosable subsets for binary indices, complement A370637.
Cf. A000040, A000720, A005117, A045778, A133686, A355739, A355744, A355745, A367771, A367905.

Table[Length[Select[Subsets[Range[n]],MemberQ[#,n] && Length[Select[Tuples[If[#==1,{},First/@FactorInteger[#]]&/@#], UnsameQ@@#&]]==1&]],{n,0,10}]

More terms from Jinyuan Wang, Mar 28 2025

A370590 Number of maximal subsets of {1..n} containing n such that it is possible to choose a different prime factor of each element (choosable).

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 3, 5, 2, 4, 14, 25, 13, 38, 46, 66, 28, 178, 57, 235, 106, 238, 656, 1235, 288, 445, 2192, 664, 2016, 6840, 2300, 9140, 888, 6236, 17692, 14724, 7320, 56000, 60472, 70252, 37160, 223884, 66428, 290312, 113172, 80544, 517392, 1001420, 114336

Offset: 0

Gus Wiseman, Feb 28 2024

nonn

For example, the set {4,7,9,10} has choice (2,7,3,5) so is counted under a(10).

			The a(0) = 0 through a(10) = 14 subsets (A = 10):
  .  .  2  23  34  235  256  2357  3578  2579  237A
                   345  356  2567  5678  4579  267A
                        456  3457        5679  279A
                             3567        5789  347A
                             4567              357A
                                               367A
                                               378A
                                               467A
                                               479A
                                               567A
                                               579A
                                               678A
                                               679A
                                               789A

Not requiring n gives A370585, maximal case of A370582, complement A370583.
Maximal case of A370586, complement A370587, unique A370588.
An opposite version is A370591.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, indices A112798, length A001222.
A355741 counts choices of a prime factor of each prime index.
A367902 counts choosable set-systems, ranks A367906, unlabeled A368095.
A367903 counts non-choosable set-systems, ranks A367907, unlabeled A368094.
A368098 counts choosable unlabeled multiset partitions, complement A368097.
A368100 ranks choosable multisets, complement A355529.
A368414 counts choosable factorizations, complement A368413.
A370592 counts choosable partitions, complement A370593.
Cf. A000040, A000720, A133686, A355739, A355744, A355745, A367771, A370584, A370636, A370639.

Table[Length[Select[Subsets[Range[n],{PrimePi[n]}],MemberQ[#,n]&&Length[Select[Tuples[If[#==1,{},First/@FactorInteger[#]]&/@#],UnsameQ@@#&]]>0&]],{n,0,10}]

More terms from Jinyuan Wang, Feb 14 2025

A368096 Triangle read by rows where T(n,k) is the number of non-isomorphic set-systems of length k and weight n.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 4, 3, 1, 0, 1, 5, 8, 3, 1, 0, 1, 8, 18, 13, 3, 1, 0, 1, 9, 32, 37, 15, 3, 1, 0, 1, 13, 55, 96, 59, 16, 3, 1, 0, 1, 14, 91, 209, 196, 74, 16, 3, 1, 0, 1, 19, 138, 449, 573, 313, 82, 16, 3, 1, 0, 1, 20, 206, 863, 1529, 1147, 403, 84, 16, 3, 1

Offset: 0

Gus Wiseman, Dec 28 2023

A set-system is a finite set of finite nonempty sets.

Conjecture: Column k = 2 is A101881.

			Triangle begins:
   1
   0   1
   0   1   1
   0   1   2   1
   0   1   4   3   1
   0   1   5   8   3   1
   0   1   8  18  13   3   1
   0   1   9  32  37  15   3   1
   0   1  13  55  96  59  16   3   1
   0   1  14  91 209 196  74  16   3   1
   0   1  19 138 449 573 313  82  16   3   1
   ...
Non-isomorphic representatives of the set-systems counted in row n = 5:
  .  {12345}  {1}{1234}  {1}{2}{123}  {1}{2}{3}{12}  {1}{2}{3}{4}{5}
              {1}{2345}  {1}{2}{134}  {1}{2}{3}{14}
              {12}{123}  {1}{2}{345}  {1}{2}{3}{45}
              {12}{134}  {1}{12}{13}
              {12}{345}  {1}{12}{23}
                         {1}{12}{34}
                         {1}{23}{24}
                         {1}{23}{45}

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

Row sums are A283877, connected case A300913.
For multiset partitions we have A317533.
Counting connected components instead of edges gives A321194.
For set multipartitions we have A334550.
For strict multiset partitions we have A368099.
A000110 counts set-partitions, non-isomorphic A000041.
A003465 counts covering set-systems, unlabeled A055621.
A007716 counts non-isomorphic multiset partitions, connected A007718.
A049311 counts non-isomorphic set multipartitions, connected A056156.
A058891 counts set-systems, unlabeled A000612, connected A323818.
A316980 counts non-isomorphic strict multiset partitions, connected A319557.
A319559 counts non-isomorphic T_0 set-systems, connected A319566.
Cf. A101881, A255903, A302545, A306005, A317532, A317794, A317795, A319560, A321405, A368094, A368095.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]] /@ Cases[Subsets[set],{i,_}];
mpm[n_]:=Join@@Table[Union[Sort[Sort /@ (#/.x_Integer:>s[[x]])]& /@ sps[Range[n]]],{s,Flatten[MapIndexed[Table[#2,{#1}]&,#]]& /@ IntegerPartitions[n]}];
brute[m_]:=First[Sort[Table[Sort[Sort /@ (m/.Rule@@@Table[{i,p[[i]]},{i,Length[p]}])], {p,Permutations[Union@@m]}]]];
Table[Length[Union[brute /@ Select[mpm[n],UnsameQ@@#&&And@@UnsameQ@@@#&&Length[#]==k&]]], {n,0,5},{k,0,n}]

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, my(g=gcd(t, q[j])); g*x^(q[j]/g)) + O(x*x^k), -k))}
G(n)={my(s=0); forpart(q=n, my(p=sum(t=1, n, y^t*subst(x*Ser(K(q, t, n\t))/t, x, x^t))); s+=permcount(q)*exp(p-subst(subst(p, x, x^2), y, y^2))); s/n!}
T(n)={[Vecrev(p) | p <- Vec(G(n))]}
{ my(A=T(10)); for(n=1, #A, print(A[n])) } \\ Andrew Howroyd, Jan 11 2024

Terms a(66) and beyond from Andrew Howroyd, Jan 11 2024

A368099 Triangle read by rows where T(n,k) is the number of non-isomorphic k-element sets of finite nonempty multisets with cardinalities summing to n, or strict multiset partitions of weight n and length k.

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 0, 3, 4, 1, 0, 5, 12, 5, 1, 0, 7, 28, 22, 5, 1, 0, 11, 66, 83, 31, 5, 1, 0, 15, 134, 252, 147, 34, 5, 1, 0, 22, 280, 726, 620, 203, 35, 5, 1, 0, 30, 536, 1946, 2283, 1069, 235, 35, 5, 1, 0, 42, 1043, 4982, 7890, 5019, 1469, 248, 35, 5, 1

Offset: 0

Gus Wiseman, Dec 31 2023

			Triangle begins:
    1
    0    1
    0    2    1
    0    3    4    1
    0    5   12    5    1
    0    7   28   22    5    1
    0   11   66   83   31    5    1
    0   15  134  252  147   34    5    1
    0   22  280  726  620  203   35    5    1
    0   30  536 1946 2283 1069  235   35    5    1
    0   42 1043 4982 7890 5019 1469  248   35    5    1
    ...
Row n = 4 counts the following representatives:
  .  {{1,1,1,1}}  {{1},{1,1,1}}  {{1},{2},{1,1}}  {{1},{2},{3},{4}}
     {{1,1,1,2}}  {{1},{1,1,2}}  {{1},{2},{1,2}}
     {{1,1,2,2}}  {{1},{1,2,2}}  {{1},{2},{1,3}}
     {{1,1,2,3}}  {{1},{1,2,3}}  {{1},{2},{3,3}}
     {{1,2,3,4}}  {{1},{2,2,2}}  {{1},{2},{3,4}}
                  {{1},{2,2,3}}
                  {{1},{2,3,4}}
                  {{1,1},{1,2}}
                  {{1,1},{2,2}}
                  {{1,1},{2,3}}
                  {{1,2},{1,3}}
                  {{1,2},{3,4}}

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

Row sums are A316980, connected case A319557.
For multiset partitions we have A317533, connected A322133.
Counting connected components instead of edges gives A321194.
For normal multiset partitions we have A330787, row sums A317776.
For set multipartitions we have A334550.
For set-systems we have A368096, row-sums A283877 (connected A300913).
A000110 counts set-partitions, non-isomorphic A000041.
A003465 counts covering set-systems, unlabeled A055621.
A007716 counts non-isomorphic multiset partitions, connected A007718.
A049311 counts non-isomorphic set multipartitions, connected A056156.
A058891 counts set-systems, unlabeled A000612, connected A323818.
Cf. A255903, A296122, A302545, A306005, A317532, A317775, A317794, A317795, A319560, A368094, A368095.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mpm[n_]:=Join@@Table[Union[Sort[Sort /@ (#/.x_Integer:>s[[x]])]&/@sps[Range[n]]],{s,Flatten[MapIndexed[Table[#2,{#1}]&,#]]& /@ IntegerPartitions[n]}];
brute[m_]:=First[Sort[Table[Sort[Sort /@ (m/.Rule@@@Table[{i,p[[i]]},{i,Length[p]}])], {p,Permutations[Union@@m]}]]];
Table[Length[Union[brute /@ Select[mpm[n],UnsameQ@@#&&Length[#]==k&]]], {n,0,5},{k,0,n}]

EulerT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, 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)={EulerT(Vec(sum(j=1, #q, my(g=gcd(t, q[j])); g*x^(q[j]/g)) + O(x*x^k), -k))}
G(n)={my(s=0); forpart(q=n, my(p=sum(t=1, n, y^t*subst(x*Ser(K(q, t, n\t))/t, x, x^t))); s+=permcount(q)*exp(p-subst(subst(p, x, x^2), y, y^2))); s/n!}
T(n)={[Vecrev(p) | p <- Vec(G(n))]}
{ my(A=T(10)); for(n=1, #A, print(A[n])) } \\ Andrew Howroyd, Jan 11 2024

A368532 Minimal numbers whose binary indices of binary indices contradict a strict version of the axiom of choice.

Original entry on oeis.org

7, 25, 30, 42, 45, 51, 53, 54, 60, 75, 77, 78, 83, 85, 86, 90, 92, 99, 101, 102, 105, 108, 113, 114, 116, 120, 385, 390, 408, 428, 434, 436, 458, 460, 466, 468, 482, 484, 488, 496, 642, 645, 668, 680, 689, 692, 713, 716, 721, 724, 728, 737, 740, 752, 771, 773

Offset: 1

Gus Wiseman, Dec 29 2023

nonn

Minimality is relative to the ordering where x < y means the binary indices of x are a subset of those of y (a Boolean algebra).
A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion.
The axiom of choice says that, given any set of nonempty sets Y, it is possible to choose a set containing an element from each. The strict version requires this set to have the same cardinality as Y, meaning no element is chosen more than once.

			The terms the corresponding set-systems begin:
   7: {{1},{2},{1,2}}
  25: {{1},{3},{1,3}}
  30: {{2},{1,2},{3},{1,3}}
  42: {{2},{3},{2,3}}
  45: {{1},{1,2},{3},{2,3}}
  51: {{1},{2},{1,3},{2,3}}
  53: {{1},{1,2},{1,3},{2,3}}
  54: {{2},{1,2},{1,3},{2,3}}
  60: {{1,2},{3},{1,3},{2,3}}
  75: {{1},{2},{3},{1,2,3}}
  77: {{1},{1,2},{3},{1,2,3}}
  78: {{2},{1,2},{3},{1,2,3}}
  83: {{1},{2},{1,3},{1,2,3}}
  85: {{1},{1,2},{1,3},{1,2,3}}
  86: {{2},{1,2},{1,3},{1,2,3}}
  90: {{2},{3},{1,3},{1,2,3}}
  92: {{1,2},{3},{1,3},{1,2,3}}
  99: {{1},{2},{2,3},{1,2,3}}

The version for MM-numbers of multiset partitions is A368187.
A000110 counts set partitions.
A003465 counts covering set-systems, unlabeled A055621.
A058891 counts set-systems, unlabeled A000612, connected A323818.
A283877 counts non-isomorphic set-systems, connected A300913.
Cf. A007716, A134964, A355529, A367905, A367907.
Cf. A140637, A367867, A367903, A368094, A368097, A368413.

vmin[y_]:=Select[y,Function[s,Select[DeleteCases[y,s], SubsetQ[bpe[s],bpe[#]]&]=={}]];
Select[Range[100],Select[Tuples[bpe/@bpe[#]] ,UnsameQ@@#&]=={}&]//vmin

cp's OEIS Frontend

A370588 Number of subsets of {1..n} containing n such that only one set can be obtained by choosing a different prime factor of each element.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A370590 Number of maximal subsets of {1..n} containing n such that it is possible to choose a different prime factor of each element (choosable).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A368096 Triangle read by rows where T(n,k) is the number of non-isomorphic set-systems of length k and weight n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A368099 Triangle read by rows where T(n,k) is the number of non-isomorphic k-element sets of finite nonempty multisets with cardinalities summing to n, or strict multiset partitions of weight n and length k.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A368532 Minimal numbers whose binary indices of binary indices contradict a strict version of the axiom of choice.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica