A370815 -id:A370815 - cp's OEIS frontend

A370813 Number of non-condensed integer factorizations of n into unordered factors > 1.

0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Mar 04 2024

nonn

A multiset is condensed iff it is possible to choose a different divisor of each element.

			The a(96) = 4 factorizations: (2*2*2*2*2*3), (2*2*2*2*6), (2*2*2*3*4), (2*2*2*12).

Partitions not of this type are counted by A239312, ranks A368110.
Factors instead of divisors: A368413, complement A368414, unique A370645.
Partitions of this type are counted by A370320, ranks A355740.
Subsets of this type: A370583 and A370637, complement A370582 and A370636.
The complement is counted by A370814, partitions A370592, ranks A368100.
For a unique choice we have A370815, partitions A370595, ranks A370810.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A355731 counts choices of a divisor of each prime index, firsts A355732.
Cf. A340596, A340653, A355529, A355739, A355741, A370804, A370807.

facs[n_]:=If[n<=1,{{}},Join @@ Table[Map[Prepend[#,d]&,Select[facs[n/d],Min @@ #>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],Length[Select[Tuples[Divisors /@ #],UnsameQ@@#&]]==0&]],{n,100}]

A370814 Number of condensed integer factorizations of n into unordered factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 2, 4, 1, 4, 1, 4, 2, 2, 1, 6, 2, 2, 2, 4, 1, 5, 1, 5, 2, 2, 2, 8, 1, 2, 2, 6, 1, 5, 1, 4, 4, 2, 1, 10, 2, 4, 2, 4, 1, 6, 2, 6, 2, 2, 1, 11, 1, 2, 4, 7, 2, 5, 1, 4, 2, 5, 1, 14, 1, 2, 4, 4, 2, 5, 1, 10, 4, 2, 1, 11, 2

Offset: 1

Gus Wiseman, Mar 04 2024

nonn

A multiset is condensed iff it is possible to choose a different divisor of each element.

			The a(36) = 7 factorizations: (2*2*9), (2*3*6), (2*18), (3*3*4), (3*12), (4*9), (6*6), (36).

Partitions of this type are counted by A239312, ranks A368110.
Factors instead of divisors: A368414, complement A368413, unique A370645.
Partitions not of this type are counted by A370320, ranks A355740.
Subsets of this type: A370582 and A370636, complement A370583 and A370637.
The complement is counted by A370813, partitions A370593, ranks A355529.
For a unique choice we have A370815, partitions A370595, ranks A370810.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A355731 counts choices of a divisor of each prime index, firsts A355732.
Cf. A340596, A340653, A355739, A370592, A370803, A370804, A370805.

facs[n_]:=If[n<=1,{{}},Join @@ Table[Map[Prepend[#,d]&,Select[facs[n/d],Min @@ #>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],Length[Select[Tuples[Divisors /@ #],UnsameQ@@#&]]>0&]],{n,100}]

A370810 Numbers n such that only one set can be obtained by choosing a different divisor of each prime index of n.

Original entry on oeis.org

1, 2, 6, 9, 10, 22, 25, 30, 34, 42, 45, 62, 63, 66, 75, 82, 98, 99, 102, 110, 118, 121, 134, 147, 153, 166, 170, 186, 210, 218, 230, 246, 254, 275, 279, 289, 310, 314, 315, 330, 343, 354, 358, 363, 369, 374, 382, 390, 402, 410, 422, 425, 462, 482, 490, 495

Offset: 1

Gus Wiseman, Mar 05 2024

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 prime indices of 6591 are {2,6,6,6}, for which the only choice is {1,2,3,6}, so 6591 is in the sequence.
The terms together with their prime indices begin:
    1: {}
    2: {1}
    6: {1,2}
    9: {2,2}
   10: {1,3}
   22: {1,5}
   25: {3,3}
   30: {1,2,3}
   34: {1,7}
   42: {1,2,4}
   45: {2,2,3}
   62: {1,11}
   63: {2,2,4}
   66: {1,2,5}
   75: {2,3,3}
   82: {1,13}
   98: {1,4,4}
   99: {2,2,5}
  102: {1,2,7}
  110: {1,3,5}

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 A370595 and A370815.
For just prime factors we have A370647, counted by A370594.
For more than one choice we have A370811, counted by A370803.
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, 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&]

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

cp's OEIS Frontend

A370813 Number of non-condensed integer factorizations of n into unordered factors > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370814 Number of condensed integer factorizations of n into unordered factors > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370810 Numbers n such that only one set can be obtained by choosing a different divisor of each prime index of 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