A355744 -id:A355744 - cp's OEIS frontend

A368183 Number of sets that can be obtained by choosing a different binary index of each binary index of n.

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

Offset: 0

Gus Wiseman, Dec 17 2023

nonn

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

			The binary indices of binary indices of 52 are {{1,2},{1,3},{2,3}}, with choices (1,3,2), (2,1,3), both permutations of {1,2,3}, so a(52) = 1.

For sequences we have A367905, firsts A367910, sorted A367911.
Positions of zeros are A367907.
Without distinctness we have A367912, firsts A367913, sorted A367915.
Positions of positive terms are A367906.
For sequences without distinctness: A368109, firsts A368111, sorted A368112.
Positions of first appearances are A368184, sorted A368185.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.
Cf. A072639, A309326, A326031, A326702, A326753, A355739, A355741, A355744, A367771.

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

A387115 Number of ways to choose a sequence of distinct strict integer partitions, one of each prime index of n.

Original entry on oeis.org

1, 1, 1, 0, 2, 1, 2, 0, 0, 2, 3, 0, 4, 2, 2, 0, 5, 0, 6, 0, 2, 3, 8, 0, 2, 4, 0, 0, 10, 2, 12, 0, 3, 5, 4, 0, 15, 6, 4, 0, 18, 2, 22, 0, 0, 8, 27, 0, 2, 2, 5, 0, 32, 0, 6, 0, 6, 10, 38, 0, 46, 12, 0, 0, 8, 3, 54, 0, 8, 4, 64, 0, 76, 15, 2, 0, 6, 4, 89, 0, 0

Offset: 1

Gus Wiseman, Aug 20 2025

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.

The axiom of choice says that, given any sequence of nonempty sets, it is possible to choose a sequence containing an element from each. In the strict version, the elements of this sequence must be distinct, meaning none is chosen more than once.

			The prime indices of 15 are (2,3), and there are a(15) = 2 choices:
  ((2),(3))
  ((2),(2,1))
The prime indices of 121 are (5,5), and there are a(121) = 6 choices:
  ((5),(4,1))
  ((5),(3,2))
  ((4,1),(5))
  ((4,1),(3,2))
  ((3,2),(5))
  ((3,2),(4,1))

For divisors instead of partitions we have A355739, see A355740, A355733, A355734.
Allowing repeated partitions gives A357982, see A299200, A357977, A357978.
Twice-partitions of this type are counted by A358914, strict case of A270995.
The disjoint case is A383706.
Allowing non-strict partitions gives A387110, for prime factors A387133.
For initial intervals instead of strict partitions we have A387111.
For constant instead of strict partitions we have A387120.
Positions of 0 are A387176 (non-choosable), complement A387177 (choosable).
A000041 counts integer partitions, strict A000009.
A003963 multiplies together the prime indices of n.
A112798 lists prime indices, row sums A056239 or A066328, lengths A001222.
A120383 lists numbers divisible by all of their prime indices.
A289509 lists numbers with relatively prime prime indices.
Cf. A000720, A063834, A261049, A335433, A335448, A355731, A355741, A355742, A355744, A357980.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Tuples[Select[IntegerPartitions[#],UnsameQ@@#&]&/@prix[n]],UnsameQ@@#&]],{n,100}]

A355736 Least k such that there are exactly n ways to choose a divisor of each prime index of k (taken in weakly increasing order) such that the result is also weakly increasing.

Original entry on oeis.org

1, 3, 7, 13, 21, 37, 39, 89, 133, 117, 111, 273, 351, 259, 267, 333, 453, 793, 669, 623, 999, 777, 843, 1491, 1157, 1561, 2863, 1443, 1963, 2331, 1977, 1869, 2899, 2529, 3207, 4107, 3171, 5073, 4329, 3653, 4667, 3471, 7399, 4613, 7587, 5931, 7269, 5889, 7483

Offset: 1

Gus Wiseman, Jul 21 2022

nonn

This is the position of first appearance of n in A355735.

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.

			The terms together with their prime indices begin:
     1: {}
     3: {2}
     7: {4}
    13: {6}
    21: {2,4}
    37: {12}
    39: {2,6}
    89: {24}
   133: {4,8}
   117: {2,2,6}
   111: {2,12}
   273: {2,4,6}
   351: {2,2,2,6}
For example, the choices for a(12) = 273 are:
  {1,1,1}  {1,2,2}  {2,2,2}
  {1,1,2}  {1,2,3}  {2,2,3}
  {1,1,3}  {1,2,6}  {2,2,6}
  {1,1,6}  {1,4,6}  {2,4,6}

Allowing any choice of divisors gives A355732, firsts of A355731.
Choosing a multiset instead of sequence gives A355734, firsts of A355733.
Positions of first appearances in A355735.
The case of prime factors instead of divisors is counted by A355745.
The decreasing version is counted by A355749.
A000005 counts divisors.
A001414 adds up distinct prime divisors, counted by A001221.
A003963 multiplies together the prime indices of n.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
Cf. A000720, A076610, A355737, A355739, A355740, A355741, A355744.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
az=Table[Length[Select[Tuples[Divisors/@primeMS[n]],LessEqual@@#&]],{n,1000}];
Table[Position[az,k][[1,1]],{k,mnrm[az]}]

A355749 Number of ways to choose a weakly decreasing sequence of divisors, one of each prime index of n (with multiplicity, taken in weakly increasing order).

Original entry on oeis.org

1, 1, 2, 1, 2, 1, 3, 1, 3, 1, 2, 1, 4, 1, 2, 1, 2, 1, 4, 1, 3, 1, 3, 1, 3, 1, 4, 1, 4, 1, 2, 1, 2, 1, 3, 1, 6, 1, 3, 1, 2, 1, 4, 1, 3, 1, 4, 1, 6, 1, 2, 1, 5, 1, 2, 1, 3, 1, 2, 1, 6, 1, 4, 1, 4, 1, 2, 1, 2, 1, 6, 1, 4, 1, 2, 1, 3, 1, 4, 1, 5, 1, 2, 1, 2, 1, 3

Offset: 1

Gus Wiseman, Jul 18 2022

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.

			The a(2) = 1 through a(19) = 4 choices:
  1  1  11  1  11  1  111  11  11  1  111  1  11  11  1111  1  111  1
     2      3      2       21      5       2      21        7       2
                   4       22              3                        4
                                           6                        8

Wikipedia, Cartesian product.

Allowing any choice of divisors gives A355731, firsts A355732.
Choosing a multiset instead of sequence gives A355733, firsts A355734.
The reverse version is A355735, firsts A355736, only primes A355745.
A000005 counts divisors.
A001414 adds up distinct prime divisors, counted by A001221.
A003963 multiplies together the prime indices of n.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A061395 selects the maximum prime index.
Cf. A000720, A076610, A120383, A316524, A324850, A355737, A355739, A355740, A355741, A355742, A355744.

Table[Length[Select[Tuples[Divisors/@primeMS[n]], GreaterEqual@@#&]],{n,100}]

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

A370809 Greatest number of multisets that can be obtained by choosing a prime factor of each part of an integer partition of n.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 3, 2, 3, 3, 4, 3, 4, 4, 4, 4, 6, 4, 6, 6, 6, 6, 8, 6, 8, 8, 9, 8, 10, 9, 12, 10, 12, 12, 12, 12, 16, 13, 16, 16, 18, 16, 20, 18, 20, 20, 24, 20, 24, 24, 24, 26, 30, 26, 30, 30, 32, 32, 36, 32, 36, 36, 40, 38, 42, 40, 45, 44, 48

Offset: 0

Gus Wiseman, Mar 05 2024

nonn

			For the partition (10,6,3,2) there are 4 choices: {2,2,2,3}, {2,2,3,3}, {2,2,3,5}, {2,3,3,5} so a(21) >= 4.
For the partitions of 6 we have the following choices:
  (6): {{2},{3}}
  (51): {}
  (42): {{2,2}}
  (411): {}
  (33): {{3,3}}
  (321): {}
  (3111): {}
  (222): {{2,2,2}}
  (2211): {}
  (21111): {}
  (111111): {}
So a(6) = 2.

For just all divisors (not just prime factors) we have A370808.
The version for factorizations is A370817, for all divisors A370816.
A000041 counts integer partitions, strict A000009.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A355741, A355744, A355745 choose prime factors of prime indices.
A368413 counts non-choosable factorizations, complement A368414.
A370320 counts non-condensed partitions, ranks A355740.
A370592, A370593, A370594, `A370807 count non-choosable partitions.
Cf. A000792, A048249, A063834, A239312, A319055, A339095, A355529, A355733, A367771, A368100, A370585.

Table[Max[Length[Union[Sort /@ Tuples[If[#==1,{},First/@FactorInteger[#]]& /@ #]]]&/@IntegerPartitions[n]],{n,0,30}]

Terms a(31) onward from Max Alekseyev, Sep 17 2024

A355537 Number of ways to choose a sequence of prime factors, one of each integer from 2 to n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 2, 2, 4, 4, 8, 8, 16, 32, 32, 32, 64, 64, 128, 256, 512, 512, 1024, 1024, 2048, 2048, 4096, 4096, 12288, 12288, 12288, 24576, 49152, 98304, 196608, 196608, 393216, 786432, 1572864, 1572864, 4718592, 4718592, 9437184, 18874368, 37748736

Offset: 1

Gus Wiseman, Jul 20 2022

nonn

Also partial products of A001221 without the first term 0, sum A013939.

For initial terms up to n = 29 we have a(n) = 2^A355538(n). The first non-power of 2 is a(30) = 12288.

			The a(n) choices for n = 2, 6, 10, 12, with prime(k) replaced by k:
  (1)  (12131)  (121314121)  (12131412151)
       (12132)  (121314123)  (12131412152)
                (121324121)  (12131412351)
                (121324123)  (12131412352)
                             (12132412151)
                             (12132412152)
                             (12132412351)
                             (12132412352)

The sum of the same integers is A000096.
The product of the same integers is A000142, Heinz number A070826.
The version for divisors instead of prime factors is A066843.
The integers themselves are the rows of A131818.
The version with multiplicity is A327486.
Using prime indices instead of 2..n gives A355741, for multisets A355744.
Counting sequences instead of multisets gives A355746.
A001221 counts distinct prime factors, with sum A001414.
A001222 counts prime factors with multiplicity.
A003963 multiplies together the prime indices of n.
A056239 adds up prime indices, row sums of A112798.
Cf. A000005, A000040, A000720, A002110, A013939, A076610, A355538, A355731, A355733, A355745, A355747.

Table[Times@@PrimeNu/@Range[2,m],{m,2,30}]

A370811 Numbers such that more than one set can be obtained by choosing a different divisor of each prime index.

Original entry on oeis.org

3, 5, 7, 11, 13, 14, 15, 17, 19, 21, 23, 26, 29, 31, 33, 35, 37, 38, 39, 41, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 65, 67, 69, 70, 71, 73, 74, 77, 78, 79, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 105, 106, 107, 109, 111, 113, 114, 115, 117, 119

Offset: 1

Gus Wiseman, Mar 13 2024

nonn

A prime index of k is a number m such that prime(m) divides k. The multiset of prime indices of k is row k of A112798.

			The prime indices of 70 are {1,3,4}, with choices (1,3,4) and (1,3,2), so 70 is in the sequence.
The terms together with their prime indices begin:
     3: {2}      43: {14}        79: {22}       115: {3,9}
     5: {3}      46: {1,9}       83: {23}       117: {2,2,6}
     7: {4}      47: {15}        85: {3,7}      119: {4,7}
    11: {5}      49: {4,4}       86: {1,14}     122: {1,18}
    13: {6}      51: {2,7}       87: {2,10}     123: {2,13}
    14: {1,4}    53: {16}        89: {24}       127: {31}
    15: {2,3}    55: {3,5}       91: {4,6}      129: {2,14}
    17: {7}      57: {2,8}       93: {2,11}     130: {1,3,6}
    19: {8}      58: {1,10}      94: {1,15}     131: {32}
    21: {2,4}    59: {17}        95: {3,8}      133: {4,8}
    23: {9}      61: {18}        97: {25}       137: {33}
    26: {1,6}    65: {3,6}      101: {26}       138: {1,2,9}
    29: {10}     67: {19}       103: {27}       139: {34}
    31: {11}     69: {2,9}      105: {2,3,4}    141: {2,15}
    33: {2,5}    70: {1,3,4}    106: {1,16}     142: {1,20}
    35: {3,4}    71: {20}       107: {28}       143: {5,6}
    37: {12}     73: {21}       109: {29}       145: {3,10}
    38: {1,8}    74: {1,12}     111: {2,12}     146: {1,21}
    39: {2,6}    77: {4,5}      113: {30}       149: {35}
    41: {13}     78: {1,2,6}    114: {1,2,8}    151: {36}

For no choices we have A355740, counted by A370320.
For at least one choice we have A368110, counted by A239312.
Partitions of this type are counted by A370803.
For a unique choice we have A370810, counted by A370595 and A370815.
A000005 counts divisors.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741, A355744, A355745 choose prime factors of prime indices.
A370814 counts factorizations with choosable divisors, complement A370813.
Cf. A133686, A355529, A355739, A355749, A367771, A367904, A370584, A370592, A370594, A370647, A370808, A370816.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Length[Union[Sort /@ Select[Tuples[Divisors/@prix[#]],UnsameQ@@#&]]]>1&]

A387176 Numbers whose prime indices do not have choosable sets of strict integer partitions. Zeros of A387115.

Original entry on oeis.org

4, 8, 9, 12, 16, 18, 20, 24, 27, 28, 32, 36, 40, 44, 45, 48, 52, 54, 56, 60, 63, 64, 68, 72, 76, 80, 81, 84, 88, 90, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 124, 125, 126, 128, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 162, 164, 168, 171, 172

Offset: 1

Gus Wiseman, Aug 27 2025

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.

We say that a sequence of nonempty sets is choosable iff it is possible to choose a different element from each set. For example, ({1,2},{1},{1,3}) is choosable because we have the choice (2,1,3), but ({1},{2},{1,3},{2,3}) is not.

The complement for all partitions appears to be A276078, counted by A052335.
For all partitions we appear to have A276079, counted by A387134.
For divisors instead of strict partitions we have A355740, counted by A370320.
Twice-partitions of this type (into distinct strict partitions) are counted by A358914.
The complement for divisors is A368110, counted by A239312.
The complement for initial intervals is A387112, counted by A238873, see A387111.
For initial intervals instead of strict partitions we have A387113, counted by A387118.
These are the positions of 0 in A387115.
Partitions of this type are counted by A387137, complement A387178.
The complement is A387177.
The version for constant partitions is A387180, counted by A387329.
The complement for constant partitions is A387181, counted by A387330.
A000041 counts integer partitions, strict A000009.
A003963 multiplies together the prime indices of n.
A112798 lists prime indices, row sums A056239 or A066328, lengths A001222.
A120383 lists numbers divisible by all of their prime indices.
A289509 lists numbers with relatively prime prime indices.
Cf. A000720, A261049, A270995, A335433, A335448, A355744, A357978, A357980, A383706, A387110, A387120.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Select[Tuples[Select[IntegerPartitions[#],UnsameQ@@#&]&/@prix[#]],UnsameQ@@#&]=={}&]

A355538 Partial sum of A001221 (number of distinct prime factors) minus 1, ranging from 2 to n.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 3, 3, 4, 5, 5, 5, 6, 6, 7, 8, 9, 9, 10, 10, 11, 11, 12, 12, 14, 14, 14, 15, 16, 17, 18, 18, 19, 20, 21, 21, 23, 23, 24, 25, 26, 26, 27, 27, 28, 29, 30, 30, 31, 32, 33, 34, 35, 35, 37, 37, 38, 39, 39, 40, 42, 42, 43, 44, 46, 46

Offset: 1

Gus Wiseman, Jul 23 2022

nonn

For initial terms up to 30 we have a(n) = Log_2 A355537(n).

The sum of the same range is A000096.
The product of the same range is A000142, Heinz number A070826.
For divisors (not just prime factors) we get A002541, also A006218, A077597.
A shifted variation is A013939.
The unshifted version is A022559, product A327486, w/o multiplicity A355537.
The ranges themselves are the rows of A131818 (shifted).
Partial sums of A297155 (shifted).
A001221 counts distinct prime factors, with sum A001414.
A001222 counts prime factors with multiplicity.
A003963 multiplies together the prime indices of n.
A056239 adds up prime indices, row sums of A112798.
A066843 gives partial sums of A000005.
Cf. A000720, A002110, A076610, A305054, A355538, A355731, A355733, A355741, A355744, A355745, A355746, A355747.

Table[Total[(PrimeNu[#]-1)&/@Range[2,n]],{n,1,100}]

a(n) = A013939(n) - n + 1.

cp's OEIS Frontend

A368183 Number of sets that can be obtained by choosing a different binary index of each binary index of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A387115 Number of ways to choose a sequence of distinct strict integer partitions, one of each prime index of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A355736 Least k such that there are exactly n ways to choose a divisor of each prime index of k (taken in weakly increasing order) such that the result is also weakly increasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A355749 Number of ways to choose a weakly decreasing sequence of divisors, one of each prime index of n (with multiplicity, taken in weakly increasing order).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

A370809 Greatest number of multisets that can be obtained by choosing a prime factor of each part of an integer partition of n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A355537 Number of ways to choose a sequence of prime factors, one of each integer from 2 to n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370811 Numbers such that more than one set can be obtained by choosing a different divisor of each prime index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A387176 Numbers whose prime indices do not have choosable sets of strict integer partitions. Zeros of A387115.

Views

Author

Keywords

Comments

Crossrefs

Programs