A355749 -id:A355749 - cp's OEIS frontend

A355740 Numbers of which it is not possible to choose a different divisor of each prime index.

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

Offset: 1

Gus Wiseman, Jul 22 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.

By Hall's marriage theorem, k is a term if and only if there is a sub-multiset S of the prime indices of k such that fewer than |S| numbers are divisors of a member of S. Equivalently, k is divisible by a member of A370348. - Robert Israel, Feb 15 2024

			The terms together with their prime indices begin:
    4: {1,1}
    8: {1,1,1}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   24: {1,1,1,2}
   27: {2,2,2}
   28: {1,1,4}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   44: {1,1,5}
   48: {1,1,1,1,2}
For example, the choices of a divisor of each prime index of 90 are: (1,1,1,1), (1,1,1,3), (1,1,2,1), (1,1,2,3), (1,2,1,1), (1,2,1,3), (1,2,2,1), (1,2,2,3). But none of these has all distinct elements, so 90 is in the sequence.

Robert Israel, Table of n, a(n) for n = 1..10000
Wikipedia, Cartesian product.

Positions of 0's in A355739.
The case of just prime factors (not all divisors) is A355529, odd A355535.
The unordered case is counted by A355733, firsts A355734.
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.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741 chooses prime factors of prime indices, variations A355744, A355745.
Cf. A000720, A076610, A335433, A335448, A340827, A355737, A355749, A370348.

filter:= proc(n) uses numtheory, GraphTheory; local B, S, F, D, E, G, t, d;
  F:= ifactors(n)[2];
  F:= map(t -> [pi(t[1]), t[2]], F);
  D:= `union`(seq(divisors(t[1]), t = F));
  F:= map(proc(t) local i; seq([t[1], i], i=1..t[2]) end proc, F);
  if nops(D) < nops(F) then return false fi;
  E:= {seq(seq({t, d}, d=divisors(t[1])), t = F)};
  S:= map(t -> convert(t, name), [op(F), op(D)]);
  E:= map(e -> map(convert, e, name), E);
  G:= Graph(S, E);
  B:= BipartiteMatching(G);
  B[1] = nops(F);
end proc:
remove(filter, [$1..200]); # Robert Israel, Feb 15 2024

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

We have A001221(a(n)) >= A303975(a(n)).

A368110 Numbers of which it is possible to choose a different divisor of each prime index.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97

Offset: 1

Gus Wiseman, Dec 15 2023

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.

By Hall's marriage theorem, k is a term if and only if there is no sub-multiset S of the prime indices of k such that fewer than |S| numbers are divisors of a member of S. Equivalently, there is no divisor of k in A370348. - Robert Israel, Feb 15 2024

			The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   5: {3}
   6: {1,2}
   7: {4}
   9: {2,2}
  10: {1,3}
  11: {5}
  13: {6}
  14: {1,4}
  15: {2,3}
  17: {7}
  19: {8}
  21: {2,4}
  22: {1,5}
  23: {9}
  25: {3,3}
  26: {1,6}
  29: {10}
  30: {1,2,3}

Robert Israel, Table of n, a(n) for n = 1..10000

Partitions of this type are counted by A239312, complement A370320.
Positions of nonzero terms in A355739.
Complement of A355740.
For just prime divisors we have A368100, complement A355529 (odd A355535).
A000005 counts divisors.
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.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741 chooses prime factors of prime indices, variations A355744, A355745.
Cf. A000720, A076610, A111774, A335433, A335448, A340852, A355733, A355734, A355737, A355749, A370348.

filter:= proc(n) uses numtheory, GraphTheory; local B,S,F,D,E,G,t,d;
  F:= ifactors(n)[2];
  F:= map(t -> [pi(t[1]),t[2]], F);
  D:= `union`(seq(divisors(t[1]), t = F));
  F:= map(proc(t) local i;seq([t[1],i],i=1..t[2]) end proc,F);
  if nops(D) < nops(F) then return false fi;
  E:= {seq(seq({t,d},d=divisors(t[1])),t = F)};
  S:= map(t -> convert(t,name), [op(F),op(D)]);
  E:= map(e -> map(convert,e,name),E);
  G:= Graph(S,E);
  B:= BipartiteMatching(G);
  B[1] = nops(F);
end proc:
select(filter, [$1..100]); # Robert Israel, Feb 15 2024

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

Heinz numbers of the partitions counted by A239312.

A355745 Number of ways to choose a prime factor of each prime index of n (with multiplicity, in weakly increasing order) such that the result is also weakly increasing.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 18 2022

nonn

First differs from A355741 and A355744 at n = 35.

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 1469 are {6,30}, and there are five valid choices: (2,2), (2,3), (2,5), (3,3), (3,5), so a(1469) = 5.

Wikipedia, Cartesian product.

Allowing all divisors gives A355735, firsts A355736, reverse A355749.
Not requiring an increasing sequence gives A355741.
Choosing a multiset instead of sequence gives A355744.
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.
A355731 chooses of a divisor of each prime index, firsts A355732.
A355733 chooses a multiset of divisors, firsts A355734.
Cf. A000720, A076610, A335433, A340852, A355737, A355739, A355740, A355742.

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

A355735 Number of ways to choose a divisor of each prime index of n (taken in weakly increasing order) such that the result is weakly increasing.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 16 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(15) = 3 ways are: (1,1), (1,3), (2,3).
The a(18) = 3 ways are: (1,1,1), (1,1,2), (1,2,2).
The a(2) = 1 through a(19) = 4 ways:
  1  1  11  1  11  1  111  11  11  1  111  1  11  11  1111  1  111  1
     2      3  12  2       12  13  5  112  2  12  13        7  112  2
                   4       22              3  14  23           122  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.
Positions of first appearances are A355736.
Choosing only prime divisors gives A355745, variations A355741, A355744.
The reverse version is 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.
A061395 selects the maximum prime index.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
Cf. A000720, A076610, A316524, A335433, A335448, A340827, A340852, A344616, A355737, A355739, A355740, A355742.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Tuples[Divisors/@primeMS[n]],LessEqual@@#&]],{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&]

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

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

A355740 Numbers of which it is not possible to choose a different divisor of each prime index.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A368110 Numbers of which it is possible to choose a different divisor of each prime index.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A355745 Number of ways to choose a prime factor of each prime index of n (with multiplicity, in weakly increasing order) such that the result is also weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A355735 Number of ways to choose a divisor of each prime index of n (taken in weakly increasing order) such that the result is weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

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

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

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