A355537 -id:A355537 - cp's OEIS frontend

A355739 Number of ways to choose a sequence of all different divisors, one of each prime index of n (with multiplicity).

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

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(49) = 6 ways are: (1,2), (1,4), (2,1), (2,4), (4,1), (4,2).
The a(182) = 5 ways are: (1,2,3), (1,2,6), (1,4,2), (1,4,3), (1,4,6).
The a(546) = 2 ways are: (1,2,4,3), (1,2,4,6).

Wikipedia, Cartesian product.

This is the strict version of A355731, firsts A355732.
For relatively prime instead of strict we have A355737, firsts A355738.
Positions of 0's are A355740.
A000005 counts divisors.
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.
A120383 lists numbers divisible by all of their prime indices.
A289508 gives GCD of prime indices, positions of 1's A289509.
Cf. A000720, A076610, A302796, A355535, A355537, A355733, A355735, A355741, A355742, A355744, A355748.

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

A355747 Number of multisets that can be obtained by choosing a divisor of each positive integer from 1 to n.

Original entry on oeis.org

1, 1, 2, 4, 10, 20, 58, 116, 320, 772, 2170, 4340, 14112, 28224, 78120, 212004, 612232, 1224464, 3873760, 7747520, 24224608, 64595088, 175452168, 350904336

Offset: 0

Gus Wiseman, Jul 20 2022

			The a(0) = 1 through a(4) = 10 multisets:
  {}  {1}  {1,1}  {1,1,1}  {1,1,1,1}
           {1,2}  {1,1,2}  {1,1,1,2}
                  {1,1,3}  {1,1,1,3}
                  {1,2,3}  {1,1,1,4}
                           {1,1,2,2}
                           {1,1,2,3}
                           {1,1,2,4}
                           {1,1,3,4}
                           {1,2,2,3}
                           {1,2,3,4}

The sum of the same integers is A000096.
The product of the same integers is A000142, Heinz number A070826.
Counting sequences instead of multisets gives A066843.
The integers themselves are the rows of A131818 (shifted).
For prime indices we have A355733, only prime factors A355744.
For prime factors instead of divisors we have A355746, factors A355537.
A000005 counts divisors.
A000040 lists the prime numbers.
A001221 counts distinct prime factors, with sum A001414.
A001222 counts prime factors with multiplicity.
Cf. A000720, A002110, A006218, A076610, A327486, A355538, A355731, A355737, A355741, A355745.

Table[Length[Union[Sort/@Tuples[Divisors/@Range[n]]]],{n,0,10}]

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

a(n) = A355733(A070826(n)).

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

a(15)-a(21) from Michael S. Branicky, Aug 03 2022

a(22)-a(23) from Michael S. Branicky, Aug 08 2022

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

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.

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Original entry on oeis.org

1, 1, 2, 4, 12, 24, 92, 184, 704, 2016, 7600, 15200, 80664, 161328, 601696, 2198824, 9868544, 19737088, 102010480, 204020960

Offset: 0

Gus Wiseman, Mar 13 2025

A constant partition is a multiset whose parts are all equal. There are A000005(n) constant partitions of n.

			The a(1) = 1 through a(4) = 12 multisets:
  {1}  {1,2}    {1,2,3}        {1,2,3,4}
       {1,1,1}  {1,1,1,3}      {1,1,1,3,4}
                {1,1,1,1,2}    {1,2,2,2,3}
                {1,1,1,1,1,1}  {1,1,1,1,2,4}
                               {1,1,1,2,2,3}
                               {1,1,1,1,1,1,4}
                               {1,1,1,1,1,2,3}
                               {1,1,1,1,2,2,2}
                               {1,1,1,1,1,1,1,3}
                               {1,1,1,1,1,1,2,2}
                               {1,1,1,1,1,1,1,1,2}
                               {1,1,1,1,1,1,1,1,1,1}

The number of possible choices was A066843.
Multiset partitions into constant blocks: A006171, A279784, A295935.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Sets of constant multisets with distinct sums: A381635, A381636, A381716.
Strict instead of constant partitions: A381808, A058694, A152827.
A000041 counts integer partitions, strict A000009, constant A000005.
A000688 counts multiset partitions into constant blocks.
A050361 and A381715 count multiset partitions into constant multisets.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@Range[n]]]],{n,0,10}]

Primorial case of A381453: a(n) = A381453(A002110(n)).

a(16)-a(19) from Christian Sievers, Jun 04 2025

A381808 Number of multisets that can be obtained by choosing a strict integer partition of m for each m = 0..n and taking the multiset union.

Original entry on oeis.org

1, 1, 1, 2, 4, 12, 38, 145, 586, 2619, 12096, 58370, 285244, 1436815, 7281062, 37489525, 193417612

Offset: 0

Gus Wiseman, Mar 14 2025

			The a(1) = 1 through a(5) = 12 multisets:
  {1}  {1,2}  {1,2,3}    {1,2,3,4}      {1,2,3,4,5}
              {1,1,2,2}  {1,1,2,2,4}    {1,1,2,2,4,5}
                         {1,1,2,3,3}    {1,1,2,3,3,5}
                         {1,1,1,2,2,3}  {1,1,2,3,4,4}
                                        {1,2,2,3,3,4}
                                        {1,1,1,2,2,3,5}
                                        {1,1,1,2,2,4,4}
                                        {1,1,1,2,3,3,4}
                                        {1,1,2,2,2,3,4}
                                        {1,1,2,2,3,3,3}
                                        {1,1,1,1,2,2,3,4}
                                        {1,1,1,2,2,2,3,3}

Set systems: A050342, A116539, A296120, A318361.
The number of possible choices was A152827, non-strict A058694.
Set multipartitions with distinct sums: A279785, A381718.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Constant instead of strict partitions: A381807, A066843.
A000041 counts integer partitions, strict A000009, constant A000005.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],UnsameQ@@#&]&/@Range[n]]]],{n,0,10}]

a(12)-a(16) from Christian Sievers, Jun 04 2025

cp's OEIS Frontend

A355739 Number of ways to choose a sequence of all different divisors, one of each prime index of n (with multiplicity).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A355747 Number of multisets that can be obtained by choosing a divisor of each positive integer from 1 to n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

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

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A381808 Number of multisets that can be obtained by choosing a strict integer partition of m for each m = 0..n and taking the multiset union.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions