A133686 -id:A133686 - cp's OEIS frontend

A370641 Number of maximal subsets of {1..n} containing n such that it is possible to choose a different binary index of each element.

0, 1, 1, 2, 3, 5, 9, 15, 32, 45, 67, 98, 141, 197, 263, 358, 1201, 1493, 1920, 2482, 3123, 3967, 4884, 6137, 7584, 9369, 11169, 13664, 15818, 19152, 22418, 26905, 151286, 173409, 202171, 237572, 273651, 320040, 367792, 428747, 485697, 562620, 637043, 734738, 815492

Offset: 0

Gus Wiseman, Mar 11 2024

nonn

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.

Also choices of A070939(n) elements of {1..n} containing n such that it is possible to choose a different binary index of each.

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

A version for set-systems is A368601.
For prime indices we have A370590, without n A370585, see also A370591.
This is the maximal case of A370636 requiring n, complement A370637.
This is the maximal case of A370639, complement A370589.
Without requiring n we have A370640.
Dominated by A370819.
A048793 lists binary indices, A000120 length, A272020 reverse, A029931 sum.
A058891 counts set-systems, A003465 covering, A323818 connected.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.
A367902 counts choosable set-systems, ranks A367906, unlabeled A368095.
A367903 counts non-choosable set-systems, ranks A367907, unlabeled A368094.
Cf. A133686, A326031, A326702, A357812, A367905, A368100, A368109, A370586, A370638, A370642.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Table[Length[Select[Subsets[Range[n],{IntegerLength[n,2]}],MemberQ[#,n] && Length[Union[Sort/@Select[Tuples[bpe/@#], UnsameQ@@#&]]]>0&]],{n,0,25}]

More terms from Jinyuan Wang, Mar 28 2025

A368411 Number of non-isomorphic connected multiset partitions of weight n contradicting a strict version of the axiom of choice.

Original entry on oeis.org

0, 0, 1, 2, 6, 15, 50, 148, 509, 1725, 6218

Offset: 0

Gus Wiseman, Dec 26 2023

A set-system is a finite set of finite nonempty sets. The weight of a set-system is the sum of cardinalities of its elements. Weight is generally not the same as number of vertices.

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.

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

Wikipedia, Axiom of choice.

The case of labeled graphs is A140638, connected case of A367867.
The complement for labeled graphs is A129271, connected case of A133686.
This is the connected case of A368097.
For set-systems we have A368409, connected case of A368094, ranks A367907.
Complement set-systems: A368410, connected case of A368095, ranks A367906.
The complement is A368412, connected case of A368098, ranks A368100.
A000110 counts set partitions, non-isomorphic A000041.
A003465 counts covering set-systems, unlabeled A055621.
A007716 counts non-isomorphic multiset partitions, connected A007718.
A058891 counts set-systems, unlabeled A000612, connected A323818.
A283877 counts non-isomorphic set-systems, connected A300913.
Cf. A140637, A302545, A316983, A317533, A319616, A367903, A367905, A368187.

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]}]]];
csm[s_]:=With[{c=Select[Subsets[Range[Length[s]], {2}],Length[Intersection@@s[[#]]]>0&]}, If[c=={},s,csm[Sort[Append[Delete[s,List /@ c[[1]]],Union@@s[[c[[1]]]]]]]]];
Table[Length[Union[brute /@ Select[mpm[n],Length[csm[#]]==1&&Select[Tuples[#], UnsameQ@@#&]=={}&]]],{n,0,6}]

A369200 Number of unlabeled loop-graphs covering n vertices such that it is possible to choose a different vertex from each edge (choosable).

Original entry on oeis.org

1, 1, 3, 7, 18, 43, 112, 282, 740, 1940, 5182, 13916, 37826, 103391, 284815, 788636, 2195414, 6137025, 17223354, 48495640, 136961527, 387819558, 1100757411, 3130895452, 8922294498, 25470279123, 72823983735, 208515456498, 597824919725, 1716072103910, 4931540188084

Offset: 0

Gus Wiseman, Jan 23 2024

nonn

These are covering loop-graphs with at most one cycle (unicyclic) in each connected component.

			Representatives of the a(1) = 1 through a(4) = 18 loop-graphs (loops shown as singletons):
  {{1}}  {{1,2}}      {{1},{2,3}}          {{1,2},{3,4}}
         {{1},{2}}    {{1,2},{1,3}}        {{1},{2},{3,4}}
         {{1},{1,2}}  {{1},{2},{3}}        {{1},{1,2},{3,4}}
                      {{1},{2},{1,3}}      {{1},{2,3},{2,4}}
                      {{1},{1,2},{1,3}}    {{1},{2},{3},{4}}
                      {{1},{1,2},{2,3}}    {{1,2},{1,3},{1,4}}
                      {{1,2},{1,3},{2,3}}  {{1,2},{1,3},{2,4}}
                                           {{1},{2},{3},{1,4}}
                                           {{1},{2},{1,3},{1,4}}
                                           {{1},{2},{1,3},{2,4}}
                                           {{1},{2},{1,3},{3,4}}
                                           {{1},{1,2},{1,3},{1,4}}
                                           {{1},{1,2},{1,3},{2,4}}
                                           {{1},{1,2},{2,3},{2,4}}
                                           {{1},{1,2},{2,3},{3,4}}
                                           {{1},{2,3},{2,4},{3,4}}
                                           {{1,2},{1,3},{1,4},{2,3}}
                                           {{1,2},{1,3},{2,4},{3,4}}

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

Without the choice condition we have A322700, labeled A322661.
Without loops we have A368834, covering case of A134964.
For exactly n edges we have A368984, labeled A333331 (maybe).
The labeled version is A369140, covering case of A368927.
The labeled complement is A369142, covering case of A369141.
This is the covering case of A369145.
The complement is counted by A369147, covering case of A369146.
The complement without loops is A369202, covering case of A140637.
A000085, A100861, A111924 count set partitions into singletons or pairs.
A000666 counts unlabeled loop-graphs, labeled A006125 (shifted left).
A006129 counts covering graphs, unlabeled A002494.
A007716 counts non-isomorphic multiset partitions, connected A007718.
A129271 counts connected choosable simple graphs, unlabeled A005703.
A133686 counts choosable labeled graphs, covering A367869.
Cf. A000088, A000612, A006649, A014068, A055621, A137916, A137917, A368835, A369194, A369199.

brute[m_]:=First[Sort[Table[Sort[Sort /@ (m/.Rule@@@Table[{(Union@@m)[[i]],p[[i]]},{i,Length[p]}])], {p,Permutations[Range[Length[Union@@m]]]}]]];
Table[Length[Union[brute /@ Select[Subsets[Subsets[Range[n],{1,2}]], Union@@#==Range[n]&&Length[Select[Tuples[#], UnsameQ@@#&]]!=0&]]],{n,0,4}]

First differences of A369145.

Euler transform of A369289 with A369289(1) = 1. - Andrew Howroyd, Feb 02 2024

a(7) onwards from Andrew Howroyd, Feb 02 2024

A370591 Number of minimal subsets of {1..n} such that it is not possible to choose a different prime factor of each element (non-choosable).

Original entry on oeis.org

0, 1, 1, 1, 2, 2, 4, 4, 7, 11, 16, 16, 30, 30, 39, 73

Offset: 0

Gus Wiseman, Feb 28 2024

			The a(1) = 1 through a(10) = 16 subsets:
{1}  {1}  {1}  {1}    {1}    {1}      {1}      {1}      {1}      {1}
               {2,4}  {2,4}  {2,4}    {2,4}    {2,4}    {2,4}    {2,4}
                             {2,3,6}  {2,3,6}  {2,8}    {2,8}    {2,8}
                             {3,4,6}  {3,4,6}  {4,8}    {3,9}    {3,9}
                                               {2,3,6}  {4,8}    {4,8}
                                               {3,4,6}  {2,3,6}  {2,3,6}
                                               {3,6,8}  {2,6,9}  {2,6,9}
                                                        {3,4,6}  {3,4,6}
                                                        {3,6,8}  {3,6,8}
                                                        {4,6,9}  {4,6,9}
                                                        {6,8,9}  {6,8,9}
                                                                 {2,5,10}
                                                                 {4,5,10}
                                                                 {5,8,10}
                                                                 {3,5,6,10}
                                                                 {5,6,9,10}

Minimal case of A370583, complement A370582.
For binary indices instead of factors we have A370642, minima of A370637.
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.
Cf. A000040, A000720, A045778, A133686, A355739, A355744, A355745, A367771, A370584, A370586, A370587, A370589.

Table[Length[fasmin[Select[Subsets[Range[n]], Length[Select[Tuples[prix/@#],UnsameQ@@#&]]==0&]]], {n,0,15}]

A001862 Number of forests of least height with n nodes.

Original entry on oeis.org

1, 1, 2, 7, 26, 111, 562, 3151, 19252, 128449, 925226, 7125009, 58399156, 507222535, 4647051970, 44747776651, 451520086208, 4761032807937, 52332895618066, 598351410294193, 7102331902602676, 87365859333294151, 1111941946738682522, 14621347433458883187

Offset: 0

N. J. A. Sloane

nonn

From Gus Wiseman, Feb 14 2024: (Start)
Also the number of minimal loop-graphs covering n vertices. This is the minimal case of A322661. For example, the a(0) = 1 through a(3) = 7 loop-graphs are (loops represented as singletons):
  {}  {1}  {12}   {1-23}
           {1-2}  {2-13}
                  {3-12}
                  {12-13}
                  {12-23}
                  {13-23}
                  {1-2-3}
(End)

I. P. Goulden and D. M. Jackson, Combinatorial Enumeration, John Wiley and Sons, N.Y., 1983. See (3.3.7): number of ways to cover the complete graph K_n with star graphs.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..100
John Riordan, Forests of labeled trees, J. Combin. Theory, 5 (1968), 90-103.
John Riordan, Letter to N. J. A. Sloane, Oct. 1970
John Riordan and N. J. A. Sloane, Correspondence, 1974

The connected case is A000272.
Without loops we have A053530, minimal case of A369191.
This is the minimal case of A322661.
A000666 counts unlabeled loop-graphs, covering A322700.
A006125 counts simple graphs; also loop-graphs if shifted left.
A006129 counts covering graphs, unlabeled A002494.
A054548 counts graphs covering n vertices with k edges, with loops A369199.
Cf. A000085, A000169, A003465, A062740, A066383, A133686, A368597.

Range[0, 20]! CoefficientList[Series[Exp[x Exp[x] - x^2/2], {x, 0, 20}], x] (* Geoffrey Critzer, Mar 13 2011 *)
fasmin[y_]:=Complement[y,Union@@Table[Union[s,#]& /@ Rest[Subsets[Complement[Union@@y,s]]],{s,y}]];
Table[Length@fasmin[Select[Subsets[Subsets[Range[n],{1,2}]], Union@@#==Range[n]&]],{n,0,4}] (* Gus Wiseman, Feb 14 2024 *)

E.g.f.: exp(x*(exp(x)-x/2)).

Binomial transform of A053530. - Gus Wiseman, Feb 14 2024

Formula and more terms from Vladeta Jovovic, Mar 27 2001

A369201 Number of unlabeled simple graphs with n vertices and n edges such that it is not possible to choose a different vertex from each edge (non-choosable).

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 7, 30, 124, 507, 2036, 8216, 33515, 138557, 583040, 2503093, 10985364, 49361893, 227342301, 1073896332, 5204340846, 25874724616, 131937166616, 689653979583, 3693193801069, 20247844510508, 113564665880028, 651138092719098, 3813739129140469

Offset: 0

Gus Wiseman, Jan 22 2024

nonn

These are graphs with n vertices and n edges having at least two cycles in the same component.

			The a(0) = 0 through a(6) = 7 simple graphs:
  .  .  .  .  .  {{12}{13}{14}{23}{24}}  {{12}{13}{14}{15}{23}{24}}
                                         {{12}{13}{14}{15}{23}{45}}
                                         {{12}{13}{14}{23}{24}{34}}
                                         {{12}{13}{14}{23}{24}{35}}
                                         {{12}{13}{14}{23}{24}{56}}
                                         {{12}{13}{14}{23}{25}{45}}
                                         {{12}{13}{14}{25}{35}{45}}

Andrew Howroyd, Table of n, a(n) for n = 0..50
Gus Wiseman, The a(6) = 7 unlabeled non-choosable graphs with 6 vertices and 6 edges.

Without the choice condition we have A001434, covering A006649.
The labeled version without choice is A116508, covering A367863, A367862.
The complement is counted by A137917, labeled A137916.
For any number of edges we have A140637, complement A134964.
For labeled set-systems we have A368600.
The case with loops is A368835, labeled A368596.
The labeled version is A369143, covering A369144.
A006129 counts covering graphs, unlabeled A002494.
A007716 counts unlabeled multiset partitions, connected A007718.
A054548 counts graphs covering n vertices with k edges, with loops A369199.
A129271 counts connected choosable simple graphs, unlabeled A005703.
Cf. A000088, A000612, A014068, A053530, A133686, A140638, A368601, A369141, A369146.

brute[m_]:=First[Sort[Table[Sort[Sort/@(m/.Rule@@@Table[{(Union@@m)[[i]],p[[i]]},{i,Length[p]}])],{p,Permutations[Range[Length[Union@@m]]]}]]];
Table[Length[Union[brute/@Select[Subsets[Subsets[Range[n],{2}],{n}],Select[Tuples[#],UnsameQ@@#&]=={}&]]],{n,0,5}]

a(n) = A001434(n) - A137917(n).

a(25) onwards from Andrew Howroyd, Feb 02 2024

A144228 Triangle T(n,k), n>=0, 0<=k<=n, read by rows: T(n,k) = number of simple graphs on n labeled nodes with k edges where each maximally connected subgraph has at most one cycle.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 3, 3, 1, 1, 6, 15, 20, 15, 1, 10, 45, 120, 210, 222, 1, 15, 105, 455, 1365, 2913, 3670, 1, 21, 210, 1330, 5985, 20139, 49294, 68820, 1, 28, 378, 3276, 20475, 97860, 362670, 976560, 1456875, 1, 36, 630, 7140, 58905, 376236, 1914276, 7663500, 22089870, 34506640

Offset: 0

Alois P. Heinz, Sep 15 2008

			T(4,4) = 15, because there are 15 simple graphs on 4 labeled nodes with 4 edges where each maximally connected subgraph has at most one cycle:
  1-2  1-2  1-2  1-2  1-2  1-2  1 2  1 2  1-2  1 2  1 2  1-2  1-2  1-2  1 2
  |/|  |X   |/   |\|   X|   \|  |/|   X|   /|  |\|  |X   |\   | |   X   |X|
  4 3  4 3  4-3  4 3  4 3  4-3  4-3  4-3  4-3  4-3  4-3  4-3  4-3  4-3  4 3
Triangle begins:
  1;
  1,  0;
  1,  1,  0;
  1,  3,  3,   1;
  1,  6, 15,  20,  15;
  1, 10, 45, 120, 210, 222;
  ...

Alois P. Heinz, Table of n, a(n) for n = 0..140, flattened

Columns k=0-3 give: A000012, A000217, A050534, A093566.
Main diagonal gives A137916.
Row sums give: A133686.
T(2n,n) gives A369828.
Cf. A000272, A057500, A007318, A000142, A129271.

cy:= proc(n) option remember; local t; binomial(n-1, 2) *add((n-3)! /(n-2-t)! *n^(n-2-t), t=1..n-2) end: T:= proc(n,k) option remember; local j; if k=0 then 1 elif k<0 or n

t[, 0] = 1; t[n, k_] /; (k<0 || nJean-François Alcover, Jan 15 2014, after Maple *)

T(n,0) = 1, T(n,k) = 0 if k<0 or nA000272(j+1) T(n-j-1,k-j) + A057500(j+1) T(n-j-1,k-j-1)).

E.g.f.: exp(B(x,y)), where B(x,y) = Sum(Sum(A062734(n,k)*y^k*x^n/n!, k=0..n), n=1..infinity) = -1/2*log(1+LambertW(-x*y))+1/2*LambertW(-x*y) -1/4*LambertW(-x*y)^2-1/y *(LambertW(-x*y)+1/2 *LambertW(-x*y)^2). - Vladeta Jovovic, Sep 16 2008

A370318 Number of labeled simple graphs with n vertices and the same number of edges as covered vertices, such that the edge set is connected.

Original entry on oeis.org

0, 0, 0, 1, 19, 307, 5237, 99137, 2098946, 49504458, 1291570014, 37002273654, 1156078150969, 39147186978685, 1428799530304243, 55933568895261791, 2338378885159906196, 103995520598384132516, 4903038902046860966220, 244294315694676224001852, 12827355456239840407125363

Offset: 0

Gus Wiseman, Feb 18 2024

nonn

The case of an empty edge set is excluded.

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

The covering case is A057500, which is also the covering case of A370317.
This is the connected case of A367862, covering A367863.
A001187 counts connected graphs, A001349 unlabeled.
A006125 counts graphs, A000088 unlabeled.
A006129 counts covering graphs, A002494 unlabeled.
A062734 counts connected graphs by edge count.
A133686 = graphs satisfy strict AoC, connected A129271, covering A367869.
A143543 counts simple labeled graphs by number of connected components.
A367867 = graphs contradict strict AoC, connected A140638, covering A367868.
Cf. A001429, A006649, A061540, A116508, A323818, A367916, A368951, A369197.

csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}], Length[Intersection@@s[[#]]]>0&]},If[c=={},s, csm[Sort[Append[Delete[s,List/@c[[1]]], Union@@s[[c[[1]]]]]]]]];
Table[Length[Select[Subsets[Subsets[Range[n], {2}]],Length[#]==Length[Union@@#] && Length[csm[#]]==1&]],{n,0,5}]

\\ Compare A370317; use A057500 for efficiency.
a(n)=n!*polcoef(polcoef(exp(x*y + O(x*x^n))*(-x+log(sum(k=0, n, (1 + y + O(y*y^n))^binomial(k, 2)*x^k/k!, O(x*x^n)))), n), n) \\ Andrew Howroyd, Feb 19 2024

Binomial transform of A057500 (if the null graph is not connected).

a(n) = n!*[x^n][y^n] exp(x*y)*(-x + log(Sum_{k>=0} (1 + y)^binomial(k, 2)*x^k/k!)). - Andrew Howroyd, Feb 19 2024

A370643 Number of subsets of {2..n} such that it is not possible to choose a different binary index of each element.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 7, 23, 46, 113, 287, 680, 1546, 3374, 7191, 15008, 30016, 61013, 124354, 252577, 511229, 1031064, 2074281, 4164716, 8350912, 16729473, 33494928, 67034995, 134127390, 268325204, 536737665, 1073581062, 2147162124, 4294458549, 8589210382, 17178890873

Offset: 0

Gus Wiseman, Mar 10 2024

nonn

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.

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

The case with ones allowed is A370637, differences A370589.
The minimal case is A370644, with ones A370642.
A048793 lists binary indices, A000120 length, A272020 reverse, A029931 sum.
A058891 counts set-systems, A003465 covering, A323818 connected.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.
Cf. A072639, A326031, A355740, A367905, A368109.
Cf. A133686, A140637, A355529, A367867, A370583, A370636, A370640.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Table[Length[Select[Subsets[Range[2,n]], Select[Tuples[bpe/@#],UnsameQ@@#&]=={}&]],{n,0,10}]

More terms from Jinyuan Wang, Mar 28 2025

A370807 Number of integer partitions of n into parts > 1 such that it is not possible to choose a different prime factor of each part.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 3, 1, 4, 4, 8, 9, 15, 17, 25, 30, 43, 54, 72, 87, 115, 139, 181, 224, 283, 342, 429, 519, 647, 779, 967

Offset: 0

Gus Wiseman, Mar 04 2024

			The a(0) = 0 through a(11) = 9 partitions:
  .  .  .  .  (22)  .  (33)   (322)  (44)    (333)   (55)     (443)
                       (42)          (332)   (432)   (82)     (533)
                       (222)         (422)   (522)   (433)    (542)
                                     (2222)  (3222)  (442)    (632)
                                                     (622)    (722)
                                                     (3322)   (3332)
                                                     (4222)   (4322)
                                                     (22222)  (5222)
                                                              (32222)

These partitions are ranked by the odd terms of A355529, complement A368100.
The version for set-systems is A367903, complement A367902.
The version for factorizations is A368413, complement A368414.
With ones allowed we have A370593, complement A370592.
For a unique choice we have A370594, ranks A370647.
The version for divisors instead of factors is A370804, complement A370805.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A239312 counts condensed partitions, ranks A368110.
A355741 counts choices of a prime factor of each prime index.
Cf. A000040, A000720, A133686, A355739, A355740, A367771, A367867, A367905, A370583, A370585, A370586, A370636.

Table[Length[Select[IntegerPartitions[n],FreeQ[#,1] && Length[Select[Tuples[If[#==1,{},First/@FactorInteger[#]]&/@#],UnsameQ@@#&]]==0&]],{n,0,30}]

cp's OEIS Frontend

A370641 Number of maximal subsets of {1..n} containing n such that it is possible to choose a different binary index of each element.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A368411 Number of non-isomorphic connected multiset partitions of weight n contradicting a strict version of the axiom of choice.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A369200 Number of unlabeled loop-graphs covering n vertices such that it is possible to choose a different vertex from each edge (choosable).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A370591 Number of minimal subsets of {1..n} such that it is not possible to choose a different prime factor of each element (non-choosable).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A001862 Number of forests of least height with n nodes.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A369201 Number of unlabeled simple graphs with n vertices and n edges such that it is not possible to choose a different vertex from each edge (non-choosable).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A144228 Triangle T(n,k), n>=0, 0<=k<=n, read by rows: T(n,k) = number of simple graphs on n labeled nodes with k edges where each maximally connected subgraph has at most one cycle.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A370318 Number of labeled simple graphs with n vertices and the same number of edges as covered vertices, such that the edge set is connected.

Views

Author

Keywords