A355744 -id:A355744 - cp's OEIS frontend

A368101 Numbers of which there is exactly one way to choose a different prime factor of each prime index.

1, 3, 5, 11, 15, 17, 31, 33, 39, 41, 51, 55, 59, 65, 67, 83, 85, 87, 93, 109, 111, 123, 127, 129, 155, 157, 165, 177, 179, 187, 191, 201, 205, 211, 213, 235, 237, 241, 249, 255, 267, 277, 283, 295, 303, 305, 319, 321, 327, 331, 335, 341, 353, 365, 367, 381

Offset: 1

Gus Wiseman, Dec 12 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.

			The prime indices of 2795 are {3,6,14}, with prime factors {{3},{2,3},{2,7}}, and the only choice with different terms is {3,2,7}, so 2795 is in the sequence.
The terms together with their prime indices of prime indices begin:
    1: {}
    3: {{1}}
    5: {{2}}
   11: {{3}}
   15: {{1},{2}}
   17: {{4}}
   31: {{5}}
   33: {{1},{3}}
   39: {{1},{1,2}}
   41: {{6}}
   51: {{1},{4}}
   55: {{2},{3}}
   59: {{7}}
   65: {{2},{1,2}}
   67: {{8}}
   83: {{9}}
   85: {{2},{4}}
   87: {{1},{1,3}}
   93: {{1},{5}}
  109: {{10}}
  111: {{1},{1,1,2}}

For no choices we have A355529, odd A355535, binary A367907.
Positions of ones in A367771.
The version for binary indices is A367908, positions of ones in A367905.
For any number of choices we have A368100.
For a unique set instead of sequence we have A370647, counted by A370594.
A058891 counts set-systems, covering A003465, connected A323818.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A124010 gives prime signature, sort A118914, length A001221, sum A001222.
A355741 chooses a prime factor of each prime index, multisets A355744.
Cf. A007716,  A355737, A355739, A355740, A355745, A367904, A367906, A370584.

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

A355746 Number of different multisets that can be obtained by choosing a prime index (or a prime factor) of each integer from 2 to n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 2, 2, 4, 4, 6, 6, 12, 20, 20, 20, 26, 26, 36, 58, 116, 116, 140, 140, 280, 280, 384, 384, 536, 536, 536, 844, 1688, 2380, 2716, 2716, 5432, 8484, 10152, 10152, 13308, 13308, 18064, 21616, 43232, 43232, 47648, 47648, 54656, 84480, 114304, 114304

Offset: 1

Gus Wiseman, Jul 20 2022

nonn

			The a(n) multisets for n = 2, 6, 10, 12:
  {1}  {1,1,1,2,3}  {1,1,1,1,1,2,2,3,4}  {1,1,1,1,1,1,2,2,3,4,5}
       {1,1,2,2,3}  {1,1,1,1,2,2,2,3,4}  {1,1,1,1,1,2,2,2,3,4,5}
                    {1,1,1,1,2,2,3,3,4}  {1,1,1,1,1,2,2,3,3,4,5}
                    {1,1,1,2,2,2,3,3,4}  {1,1,1,1,2,2,2,2,3,4,5}
                                         {1,1,1,1,2,2,2,3,3,4,5}
                                         {1,1,1,2,2,2,2,3,3,4,5}

Michael S. Branicky, Table of n, a(n) for n = 1..75

The sum of the same integers is A000096.
The product of the same integers is A000142, Heinz number A070826.
The integers themselves are the rows of A131818 (shifted).
Counting sequences instead of multisets: A355537, with multiplicity A327486.
Using prime indices instead of 2..n gives A355744, for sequences A355741.
The version for divisors instead of prime factors is A355747.
A000040 lists the prime numbers.
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. A000720, A002110, A076610, A355538, A355731, A355733, A355740, A355742, A355745.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Union[Sort/@Tuples[primeMS/@Range[2,n]]]],{n,15}]

from sympy import factorint
from itertools import count, islice
def agen():
    s = {(1,)}
    for n in count(2):
        yield len(s)
        s = set(tuple(sorted(t+(d,))) for t in s for d in factorint(n))
print(list(islice(agen(), 53))) # Michael S. Branicky, Aug 03 2022

a(n) = A355744(A070826(n)).

a(p) = a(p-1) for p prime. - Michael S. Branicky, Aug 03 2022

a(28) and beyond from Michael S. Branicky, Aug 03 2022

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

Original entry on oeis.org

1, 1, 2, 0, 3, 2, 5, 0, 2, 3, 7, 0, 11, 5, 6, 0, 15, 2, 22, 0, 10, 7, 30, 0, 6, 11, 0, 0, 42, 6, 56, 0, 14, 15, 15, 0, 77, 22, 22, 0, 101, 10, 135, 0, 6, 30, 176, 0, 20, 6, 30, 0, 231, 0, 21, 0, 44, 42, 297, 0, 385, 56, 10, 0, 33, 14, 490, 0, 60, 15, 627, 0

Offset: 1

Gus Wiseman, Aug 18 2025

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 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 9 are (2,2), and there are a(9) = 2 choices:
  ((2),(1,1))
  ((1,1),(2))
The prime indices of 15 are (2,3), and there are a(15) = 5 choices:
  ((2),(3))
  ((2),(2,1))
  ((2),(1,1,1))
  ((1,1),(2,1))
  ((1,1),(1,1,1))

Positions of zeros are A276078 (choosable), complement A276079 (non-choosable).
Allowing repeated partitions gives A299200, A357977, A357982, A357978.
For multiset systems see A355529, A355744, A367771, set systems A367901-A367905.
For divisors see A355731, A355733, A355734, A355735, A355737, A355739, A355740.
For prime factors instead of partitions see A355741, A355742, A387136.
The disjoint case is A383706.
For initial intervals instead of partitions we have A387111.
The case of strict partitions is A387115.
The case of constant partitions is A387120.
Taking each prime factor (instead of index) gives A387133.
A000041 counts integer partitions, strict A000009.
A003963 multiplies together prime indices.
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. A008284, A063834, A261049, A296122, A299201, A335433, A335448, A355745, A387135.

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

A387111 Number of ways to choose a sequence of distinct positive integers, one in the initial interval of each prime index of n.

Original entry on oeis.org

1, 1, 2, 0, 3, 1, 4, 0, 2, 2, 5, 0, 6, 3, 4, 0, 7, 0, 8, 0, 6, 4, 9, 0, 6, 5, 0, 0, 10, 1, 11, 0, 8, 6, 9, 0, 12, 7, 10, 0, 13, 2, 14, 0, 2, 8, 15, 0, 12, 2, 12, 0, 16, 0, 12, 0, 14, 9, 17, 0, 18, 10, 4, 0, 15, 3, 19, 0, 16, 4, 20, 0, 21, 11, 4, 0, 16, 4, 22

Offset: 1

Gus Wiseman, Aug 18 2025

nonn

The initial interval of a nonnegative integer x is the set {1,...,x}.
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 75 are (2,3,3), with initial intervals ({1,2},{1,2,3},{1,2,3}), with choices (1,2,3), (1,3,2), (2,1,3), (2,3,1), so a(75) = 4.

Allowing repeated partitions gives A003963.
For constant instead of distinct we have A055396.
For multiset systems see A355529, A355744, A367771, set systems A367901-A367905.
For divisors we have A355739, zeros A355740, strict case of A355731.
For prime factors we have A355741, prime powers A355742, weakly increasing A355745.
For integer partitions we have A387110.
Positions of nonzero terms are A387112 (choosable).
Positions of 0 are A387134 (non-choosable).
A001414 adds up distinct prime divisors, counted by A001221.
A061395 gives greatest prime index.
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.
A324850 lists numbers divisible by the product of their prime indices.
Cf. A000720, A326841, A335433, A335448, A355733, A355737, A355747, A357980, A383706, A387120, A387133, A387135.

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

A367913 Least number k such that there are exactly n ways to choose a multiset consisting of a binary index of each binary index of k.

Original entry on oeis.org

1, 4, 64, 20, 68, 320, 52, 84, 16448, 324, 832, 116, 1104, 308, 816, 340, 836, 848, 1108, 1136, 1360, 3152, 16708, 372, 5188, 5216, 852, 880, 2884, 1364, 13376, 1392, 3184, 3424, 17220, 5204, 5220, 2868, 5728, 884, 19536, 66896, 2900, 1396, 21572, 3188, 3412

Offset: 1

Gus Wiseman, Dec 16 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 terms together with the corresponding set-systems begin:
      1: {{1}}
      4: {{1,2}}
     64: {{1,2,3}}
     20: {{1,2},{1,3}}
     68: {{1,2},{1,2,3}}
    320: {{1,2,3},{1,4}}
     52: {{1,2},{1,3},{2,3}}
     84: {{1,2},{1,3},{1,2,3}}
  16448: {{1,2,3},{1,2,3,4}}
    324: {{1,2},{1,2,3},{1,4}}
    832: {{1,2,3},{1,4},{2,4}}
    116: {{1,2},{1,3},{2,3},{1,2,3}}

A version for multisets and divisors is A355734.
With distinctness we have A367910, firsts of A367905, sorted A367911.
Positions of first appearances in A367912.
The sorted version is A367915.
For sequences we have A368111, firsts of A368109, sorted A368112.
For sets we have A368184, firsts of A368183, 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, A326749, A326753, A355733, A355741, A355744.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
spnm[y_]:=Max@@NestWhile[Most,y,Union[#]!=Range[0,Max@@#]&];
c=Table[Length[Union[Sort/@Tuples[bpe/@bpe[n]]]],{n,1000}];
Table[Position[c,n][[1,1]],{n,spnm[c]}]

A367915 Sorted positions of first appearances in A367912 (number of multisets that can be obtained by choosing a binary index of each binary index).

Original entry on oeis.org

1, 4, 20, 52, 64, 68, 84, 116, 308, 320, 324, 340, 372, 816, 832, 836, 848, 852, 880, 884, 1104, 1108, 1136, 1360, 1364, 1392, 1396, 1904, 1908, 2868, 2884, 2900, 2932, 3152, 3184, 3188, 3412, 3424, 3440, 3444, 3952, 3956, 5188, 5204, 5216, 5220, 5236, 5476

Offset: 1

Gus Wiseman, Dec 16 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 terms together with the corresponding set-systems begin:
     1: {{1}}
     4: {{1,2}}
    20: {{1,2},{1,3}}
    52: {{1,2},{1,3},{2,3}}
    64: {{1,2,3}}
    68: {{1,2},{1,2,3}}
    84: {{1,2},{1,3},{1,2,3}}
   116: {{1,2},{1,3},{2,3},{1,2,3}}
   308: {{1,2},{1,3},{2,3},{1,4}}
   320: {{1,2,3},{1,4}}
   324: {{1,2},{1,2,3},{1,4}}
   340: {{1,2},{1,3},{1,2,3},{1,4}}
   372: {{1,2},{1,3},{2,3},{1,2,3},{1,4}}

A version for multisets and divisors is A355734.
Sorted positions of first appearances in A367912, for sequences A368109.
The unsorted version is A367913.
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, A326749, A326753, A355733, A355744, A367905, A367906, A367911, A368112, A368185.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
c=Table[Length[Union[Sort/@Tuples[bpe/@bpe[n]]]],{n,10000}];
Select[Range[Length[c]],FreeQ[Take[c,#-1],c[[#]]]&]

A368111 Least k such that there are exactly A003586(n) ways to choose a binary index of each binary index of k.

Original entry on oeis.org

1, 4, 64, 20, 68, 52, 1088, 84, 308, 1092, 116, 5184, 820, 1108, 372, 5188, 2868, 1140, 13376, 884, 5204, 17204, 1396, 13380, 2932, 5236, 275520, 19252, 1908, 13396, 17268, 5492, 275524, 84788, 3956, 13428, 1324096, 19316, 6004, 275540, 215860, 18292, 13684

Offset: 1

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 terms together with the corresponding set-systems begin:
    1: {{1}}
    4: {{1,2}}
   64: {{1,2,3}}
   20: {{1,2},{1,3}}
   68: {{1,2},{1,2,3}}
   52: {{1,2},{1,3},{2,3}}
   84: {{1,2},{1,3},{1,2,3}}
  308: {{1,2},{1,3},{2,3},{1,4}}
  116: {{1,2},{1,3},{2,3},{1,2,3}}
  820: {{1,2},{1,3},{2,3},{1,4},{2,4}}
  372: {{1,2},{1,3},{2,3},{1,2,3},{1,4}}
  884: {{1,2},{1,3},{2,3},{1,2,3},{1,4},{2,4}}

With distinctness we have A367910, sorted A367911, firsts of A367905.
For multisets we have A367913, sorted A367915, firsts of A367912.
Positions of first appearances in A368109.
The sorted version is A368112.
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, A253317, A309326, A326031, A326702, A326753, A355731, A355741, A355744, A367906.

nn=10000;
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
dd=Select[Range[nn],Max@@First/@FactorInteger[#]<=3&];
qq=Table[Length[Tuples[bpe/@bpe[n]]],{n,nn}];
kk=Select[Range[Length[dd]],SubsetQ[qq,Take[dd,#]]&]
Table[Position[qq,dd[[n]]][[1,1]],{n,kk}]

A370645 Number of integer factorizations of n into unordered factors > 1 such that only one set can be obtained by choosing a different prime factor of each factor.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 01 2024

nonn

All of these factorizations are co-balanced (A340596).

			The factorization f = (3*6*10) has prime factor choices (3,2,2), (3,3,2), (3,2,5), and (3,3,5), of which only (3,2,5) has all different parts, so f is counted under a(180).
The a(n) factorizations for n = 2, 12, 24, 36, 72, 120, 144, 180, 288:
  (2)  (2*6)  (3*8)   (4*9)   (8*9)   (3*5*8)   (2*72)   (4*5*9)   (3*96)
       (3*4)  (4*6)   (6*6)   (2*36)  (4*5*6)   (3*48)   (5*6*6)   (4*72)
              (2*12)  (2*18)  (3*24)  (2*3*20)  (4*36)   (2*3*30)  (6*48)
                      (3*12)  (4*18)  (2*5*12)  (6*24)   (2*5*18)  (8*36)
                              (6*12)  (2*6*10)  (8*18)   (2*6*15)  (9*32)
                                      (3*4*10)  (9*16)   (2*9*10)  (12*24)
                                                (12*12)  (3*4*15)  (16*18)
                                                         (3*5*12)  (2*144)
                                                         (3*6*10)

Multisets of this type are ranked by A368101, see also A368100, A355529.
For nonexistence we have A368413, complement A368414.
Subsets of this type are counted by A370584, see also A370582, A370583.
Maximal sets of this type are counted by A370585.
The version for partitions is A370594, see also A370592, A370593.
Subsets of this type are counted by A370638, see also A370636, A370637.
For unlabeled multiset partitions we have A370646, also A368098, A368097.
A001055 counts factorizations, strict A045778.
A006530 gives greatest prime factor, least A020639.
A007716 counts non-isomorphic multiset partitions, connected A007718.
A027746 lists prime factors, A112798 indices, length A001222.
A058891 counts set-systems, unlabeled A000612, connected A323818.
A283877 counts non-isomorphic set-systems, connected A300913.
A355741 counts ways to choose a prime factor of each prime index.
For set-systems see A367902-A367908.
Cf. A000040, A000720, A003963, A340596, A340653, A355744, A355745, A368110.

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[Union[Sort/@Select[Tuples[First /@ FactorInteger[#]&/@#], UnsameQ@@#&]]]==1&]],{n,100}]

A370647 Numbers such that only one set can be obtained by choosing a different prime factor of each prime index.

Original entry on oeis.org

1, 3, 5, 7, 11, 15, 17, 19, 23, 31, 33, 35, 39, 41, 51, 53, 55, 59, 65, 67, 69, 77, 83, 85, 87, 91, 93, 95, 97, 103, 109, 111, 119, 123, 127, 129, 131, 155, 157, 161, 165, 169, 177, 179, 183, 185, 187, 191, 201, 203, 205, 209, 211, 213, 217, 227, 235, 237, 241

Offset: 1

Gus Wiseman, Mar 06 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 91 are {4,6}, with only choice {2,3}, so 91 is in the sequence.
The terms together with their prime indices begin:
     1: {}        53: {16}      109: {29}
     3: {2}       55: {3,5}     111: {2,12}
     5: {3}       59: {17}      119: {4,7}
     7: {4}       65: {3,6}     123: {2,13}
    11: {5}       67: {19}      127: {31}
    15: {2,3}     69: {2,9}     129: {2,14}
    17: {7}       77: {4,5}     131: {32}
    19: {8}       83: {23}      155: {3,11}
    23: {9}       85: {3,7}     157: {37}
    31: {11}      87: {2,10}    161: {4,9}
    33: {2,5}     91: {4,6}     165: {2,3,5}
    35: {3,4}     93: {2,11}    169: {6,6}
    39: {2,6}     95: {3,8}     177: {2,17}
    41: {13}      97: {25}      179: {41}
    51: {2,7}    103: {27}      183: {2,18}

For nonexistence we have A355529, count A370593.
For binary instead of prime indices we have A367908, counted by A367904.
For existence we have A368100, count A370592.
For a sequence instead of set of factors we have A368101.
The version for subsets is A370584, see also A370582, A370583.
Maximal sets of this type are counted by A370585.
Partitions of this type are counted by A370594.
For subsets and binary indices we have A370638.
The version for factorizations is A370645, see also A368414, A368413.
For divisors instead of factors we have A370810, counted by A370595.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A355741 counts ways to choose a prime factor of each prime index.
Cf. A000040, A000720, A003963, A355739, A355740, A355744, A355745, A368110.

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

A370804 Number of non-condensed integer partitions of n into parts > 1.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 1, 2, 3, 3, 6, 6, 12, 14, 21, 25, 37, 43, 62, 75, 101, 124, 167, 198, 261, 316, 401, 488, 618, 745, 930, 1119, 1379, 1664, 2032, 2433, 2960, 3537, 4259, 5076, 6094, 7227, 8629, 10205, 12126, 14302, 16932, 19893, 23471, 27502, 32315, 37775

Offset: 0

Gus Wiseman, Mar 03 2024

nonn

These are partitions without ones such that it is not possible to choose a different divisor of each part.

			The a(6) = 1 through a(14) = 12 partitions:
  (222)  .  (2222)  (333)   (3322)   (3332)   (3333)    (4333)    (4442)
                    (3222)  (4222)   (5222)   (4422)    (7222)    (5333)
                            (22222)  (32222)  (6222)    (33322)   (5522)
                                              (33222)   (43222)   (8222)
                                              (42222)   (52222)   (33332)
                                              (222222)  (322222)  (43322)
                                                                  (44222)
                                                                  (53222)
                                                                  (62222)
                                                                  (332222)
                                                                  (422222)
                                                                  (2222222)

These partitions have as ranks the odd terms of A355740.
The version with ones is A370320, complement A239312.
The complement without ones is A370805.
The version for prime factors is A370807, with ones A370593.
The version for factorizations is A370813, complement A370814.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
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.
Cf. A355529, A355739, A367867, A367901, A368110, A368413, A370595, A370806, A370808, A370810.

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

More terms from Jinyuan Wang, Feb 14 2025

cp's OEIS Frontend

A368101 Numbers of which there is exactly one way to choose a different prime factor of each prime index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A355746 Number of different multisets that can be obtained by choosing a prime index (or a prime factor) of each integer from 2 to n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A387111 Number of ways to choose a sequence of distinct positive integers, one in the initial interval of each prime index of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367913 Least number k such that there are exactly n ways to choose a multiset consisting of a binary index of each binary index of k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367915 Sorted positions of first appearances in A367912 (number of multisets that can be obtained by choosing a binary index of each binary index).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A368111 Least k such that there are exactly A003586(n) ways to choose a binary index of each binary index of k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370645 Number of integer factorizations of n into unordered factors > 1 such that only one set can be obtained by choosing a different prime factor of each factor.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370647 Numbers such that only one set can be obtained by choosing a different prime factor of each prime index.

Views

Author

Keywords