A367586 -id:A367586 - cp's OEIS frontend

A097986 Number of strict integer partitions of n with a part dividing all the other parts.

1, 1, 2, 2, 2, 4, 3, 5, 5, 7, 6, 12, 9, 13, 15, 20, 18, 28, 26, 37, 39, 47, 49, 71, 68, 85, 94, 117, 120, 159, 160, 201, 216, 257, 277, 348, 357, 430, 470, 562, 592, 720, 758, 901, 981, 1134, 1220, 1457, 1542, 1798, 1952, 2250, 2419, 2819, 3023, 3482, 3773, 4291

Offset: 1

Vladeta Jovovic, Oct 23 2004

If n > 0, we can assume such a part is the smallest. - Gus Wiseman, Apr 23 2021

Also the number of uniform (constant multiplicity) partitions of n containing 1, ranked by A367586. The strict case is A096765. The version without 1 is A329436. - Gus Wiseman, Dec 01 2023

			From _Gus Wiseman_, Dec 01 2023: (Start)
The a(1) = 1 through a(8) = 5 strict partitions with a part dividing all the other parts:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)
            (2,1)  (3,1)  (4,1)  (4,2)    (6,1)    (6,2)
                                 (5,1)    (4,2,1)  (7,1)
                                 (3,2,1)           (4,3,1)
                                                   (5,2,1)
The a(1) = 1 through a(8) = 5 uniform partitions containing 1:
  (1)  (11)  (21)   (31)    (41)     (51)      (61)       (71)
             (111)  (1111)  (11111)  (321)     (421)      (431)
                                     (2211)    (1111111)  (521)
                                     (111111)             (3311)
                                                          (11111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 500 terms from John Tyler Rascoe)

The non-strict version is A083710.
The case with no 1's is A098965.
The Heinz numbers of these partitions are A339563.
The strict complement is counted by A341450.
The version for "divisible by" instead of "dividing" is A343347.
The case where there is also a part divisible by all the others is A343378.
The case where there is no part divisible by all the others is A343381.
A000005 counts divisors.
A000009 counts strict partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).
A167865 counts strict chains of divisors > 1 summing to n.
Cf. A083711, A098743, A130689, A200745, A264401, A338470, A343377, A343379, A343380.
Cf. A023645, A025147, A047966, A072774, A096765, A329436, A367586.

Take[ CoefficientList[ Expand[ Sum[x^k*Product[1 + x^(k*i), {i, 2, 62}], {k, 62}]], x], {2, 60}] (* Robert G. Wilson v, Nov 01 2004 *)
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Or@@Table[And@@IntegerQ/@(#/x), {x,#}]&]], {n,0,30}] (* Gus Wiseman, Apr 23 2021 *)

A_x(N) = {my(x='x+O('x^N)); Vec(sum(k=1,N,x^k*prod(i=2,N-k, (1+x^(k*i)))))}
A_x(50) \\ John Tyler Rascoe, Nov 19 2024

a(n) = Sum_{d|n} A025147(d-1).
G.f.: Sum_{k>=1} (x^k*Product_{i>=2} (1+x^(k*i))).
a(n) ~ exp(Pi*sqrt(n/3)) / (8*3^(1/4)*n^(3/4)). - Vaclav Kotesovec, Jul 06 2025

More terms from Robert G. Wilson v, Nov 01 2004

Name shortened by Gus Wiseman, Apr 23 2021

A367580 Multiset multiplicity kernel (MMK) of n. Product of (least prime factor with exponent k)^(number of prime factors with exponent k) over all distinct exponents k appearing in the prime factorization of n.

Original entry on oeis.org

1, 2, 3, 2, 5, 4, 7, 2, 3, 4, 11, 6, 13, 4, 9, 2, 17, 6, 19, 10, 9, 4, 23, 6, 5, 4, 3, 14, 29, 8, 31, 2, 9, 4, 25, 4, 37, 4, 9, 10, 41, 8, 43, 22, 15, 4, 47, 6, 7, 10, 9, 26, 53, 6, 25, 14, 9, 4, 59, 18, 61, 4, 21, 2, 25, 8, 67, 34, 9, 8, 71, 6, 73, 4, 15, 38

Offset: 1

Gus Wiseman, Nov 26 2023

nonn

As an operation on multisets, this is represented by A367579.

			90 has prime factorization 2^1 * 3^2 * 5^1, so for k = 1 we have 2^2, and for k = 2 we have 3^1, so a(90) = 12.

Positions of 2's are A000079 without 1.
Positions of 3's are A000244 without 1.
Positions of primes (including 1) are A000961.
Positions of prime(k) are prime powers prime(k)^i, rows of A051128.
Depends only on rootless base A052410, see A007916.
Positions of prime powers are A072774.
Positions of squarefree numbers are A130091.
Agrees with A181819 at positions A367683, counted by A367682.
Rows of A367579 have this rank, sum A367581, max A367583, min A055396.
Positions of first appearances are A367584, sorted A367585.
Positions of powers of 2 are A367586.
Divides n at positions A367685, counted by A367684.
The opposite version (cokernel) is A367859.
A007947 gives squarefree kernel.
A027746 lists prime factors, length A001222, indices A112798.
A027748 lists distinct prime factors, length A001221, indices A304038.
A071625 counts distinct prime exponents.
A124010 gives multiset of multiplicities (prime signature), sorted A118914.
Cf. A001597, A005117, A020639, A051904, A052409, A062770, A175781, A238747, A288636, A353742, A367582.

mmk[q_]:=With[{mts=Length/@Split[q]}, Sort[Table[Min@@Select[q,Count[q,#]==i&], {i,mts}]]];
Table[Times@@mmk[Join@@ConstantArray@@@FactorInteger[n]], {n,100}]

a(n^k) = a(n) for all positive integers n and k.
A001221(a(n)) = A071625(n).
A001222(a(n)) = A001221(n).
If n is squarefree, a(n) = A020639(n)^A001222(n).
A056239(a(n)) = A367581(n).

A367579 Irregular triangle read by rows where row n is the multiset multiplicity kernel (MMK) of the multiset of prime indices of n.

Original entry on oeis.org

1, 2, 1, 3, 1, 1, 4, 1, 2, 1, 1, 5, 1, 2, 6, 1, 1, 2, 2, 1, 7, 1, 2, 8, 1, 3, 2, 2, 1, 1, 9, 1, 2, 3, 1, 1, 2, 1, 4, 10, 1, 1, 1, 11, 1, 2, 2, 1, 1, 3, 3, 1, 1, 12, 1, 1, 2, 2, 1, 3, 13, 1, 1, 1, 14, 1, 5, 2, 3, 1, 1, 15, 1, 2, 4, 1, 3, 2, 2, 1, 6, 16, 1, 2

Offset: 1

Gus Wiseman, Nov 25 2023

Row n = 1 is empty.
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 define the multiset multiplicity kernel MMK(m) of a multiset m by the following property, holding for all distinct multiplicities k >= 1. If S is the set of elements of multiplicity k in m, then min(S) has multiplicity |S| in MMK(m). For example, MMK({1,1,2,2,3,4,5}) = {1,1,3,3,3}, and MMK({1,2,3,4,5,5,5,5}) = {1,1,1,1,5}.
Note: I chose the word 'kernel' because, as with A007947 and A304038, MMK(m) is constructed using the same underlying elements as m and has length equal to the number of distinct elements of m. However, it is not necessarily a submultiset of m.

			The first 45 rows:
     1: {}      16: {1}       31: {11}
     2: {1}     17: {7}       32: {1}
     3: {2}     18: {1,2}     33: {2,2}
     4: {1}     19: {8}       34: {1,1}
     5: {3}     20: {1,3}     35: {3,3}
     6: {1,1}   21: {2,2}     36: {1,1}
     7: {4}     22: {1,1}     37: {12}
     8: {1}     23: {9}       38: {1,1}
     9: {2}     24: {1,2}     39: {2,2}
    10: {1,1}   25: {3}       40: {1,3}
    11: {5}     26: {1,1}     41: {13}
    12: {1,2}   27: {2}       42: {1,1,1}
    13: {6}     28: {1,4}     43: {14}
    14: {1,1}   29: {10}      44: {1,5}
    15: {2,2}   30: {1,1,1}   45: {2,3}

Indices of empty and singleton rows are A000961.
Row lengths are A001221.
Depends only on rootless base A052410, see A007916.
Row minima are A055396.
Rows have A071625 distinct elements.
Indices of constant rows are A072774.
Indices of strict rows are A130091.
Rows have Heinz numbers A367580.
Row sums are A367581.
Row maxima are A367583, opposite A367587.
Index of first row with Heinz number n is A367584.
Sorted row indices of first appearances are A367585.
Indices of rows of the form {1,1,...} are A367586.
Agrees with sorted prime signature at A367683, counted by A367682.
A submultiset of prime indices at A367685, counted by A367684.
A007947 gives squarefree kernel.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A124010 lists prime multiplicities (prime signature), sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A238747 gives prime metasignature, reversed A353742.
A304038 lists distinct prime indices, length A001221, sum A066328.
A367582 counts partitions by sum of multiset multiplicity kernel.
Cf. A000720, A001597, A005117, A027746, A027748, A051904, A052409, A061395, A062770, A175781, A288636, A289023.

mmk[q_]:=With[{mts=Length/@Split[q]}, Sort[Table[Min@@Select[q,Count[q,#]==i&], {i,mts}]]];
Table[mmk[PrimePi/@Join@@ConstantArray@@@If[n==1, {},FactorInteger[n]]], {n,100}]

For all positive integers n and k, row n^k is the same as row n.

A367584 Least number whose multiset multiplicity kernel (in which each prime exponent becomes the least prime factor with that exponent) is n. First position of n in A367580.

Original entry on oeis.org

1, 2, 3, 6, 5, 12, 7, 30, 15, 20, 11, 90, 13, 28, 45, 210, 17, 60, 19, 150, 63, 44, 23, 630, 35, 52, 105, 252, 29, 360, 31, 2310, 99, 68, 175, 2100, 37, 76, 117, 1050, 41, 504, 43, 396, 525, 92, 47, 6930, 77, 140, 153, 468, 53, 420, 275, 1470, 171, 116, 59

Offset: 1

Gus Wiseman, Nov 29 2023

nonn

We define the multiset multiplicity kernel (MMK) of a positive integer n to be the product of (least prime factor with exponent k)^(number of prime factors with exponent k) over all distinct exponents k appearing in the prime factorization of n. For example, 90 has prime factorization 2^1 * 3^2 * 5^1, so for k = 1 we have 2^2, and for k = 2 we have 3^1, so MMK(90) = 12. As an operation on multisets, MMK is represented by the triangle A367579, and as an operation on their ranks it is represented by A367580.

			The least number with multiset multiplicity kernel 9 is 15, so a(9) = 15.
The terms together with their prime indices begin:
   1 ->  1: {}
   2 ->  2: {1}
   3 ->  3: {2}
   4 ->  6: {1,2}
   5 ->  5: {3}
   6 -> 12: {1,1,2}
   7 ->  7: {4}
   8 -> 30: {1,2,3}
   9 -> 15: {2,3}
  10 -> 20: {1,1,3}
  11 -> 11: {5}
  12 -> 90: {1,2,2,3}
  13 -> 13: {6}
  14 -> 28: {1,1,4}
  15 -> 45: {2,2,3}
  16 ->210: {1,2,3,4}

Positions of primes are A000040.
Positions of squarefree numbers are A000961.
All terms are rootless A007916.
Contains no nonprime prime powers A246547.
The MMK triangle is A367579, sum A367581, min A055396, max A367583.
Positions of first appearances in A367580.
The sorted version is A367585.
The complement is A367768.
A007947 gives squarefree kernel.
A027746 lists prime factors, length A001222, indices A112798.
A027748 lists distinct prime factors, length A001221, indices A304038.
A071625 counts distinct prime exponents.
A124010 gives prime signature, sorted A118914.
Cf. A005117, A020639, A051904, A072774, A130091, A367586.

nn=1000;
mmk[q_]:=With[{mts=Length/@Split[q]}, Sort[Table[Min@@Select[q,Count[q,#]==i&], {i,mts}]]];
spnm[y_]:=Max@@NestWhile[Most, Sort[y], Union[#]!=Range[Max@@#]&];
qq=Table[Times@@mmk[Join@@ConstantArray@@@FactorInteger[n]], {n,nn}];
Table[Position[qq,i][[1,1]], {i,spnm[qq]}]

a(p) = p for all primes p.

A367583 Greatest element in row n of A367579 (multiset multiplicity kernel).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Nov 28 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.

We define the multiset multiplicity kernel MMK(m) of a multiset m by the following property, holding for all distinct multiplicities k >= 1. If S is the set of elements of multiplicity k in m, then min(S) has multiplicity |S| in MMK(m). For example, MMK({1,1,2,2,3,4,5}) = {1,1,3,3,3}, and MMK({1,2,3,4,5,5,5,5}) = {1,1,1,1,5}.

			For 450 = 2^1 * 3^2 * 5^2, we have MMK({1,2,2,3,3}) = {1,2,2} so a(450) = 2.

Positions of first appearances are A008578.
Depends only on rootless base A052410, see A007916, A052409.
For minimum instead of maximum element we have A055396.
Row maxima of A367579.
Greatest prime index of A367580.
Positions of 1's are A367586 (powers of even squarefree numbers).
The opposite version is A367587.
A007947 gives squarefree kernel.
A072774 lists powers of squarefree numbers.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A238747 gives prime metasignature, reverse A353742.
A304038 lists distinct prime indices, length A001221, sum A066328.
A363486 gives least prime index of greatest exponent.
A363487 gives greatest prime index of greatest exponent.
A364191 gives least prime index of least exponent.
A364192 gives greatest prime index of least exponent.
Cf. A000720, A000961, A051904, A061395, A071625, A130091, A289023, A367581, A367584, A367585, A367683.

mmk[q_]:=With[{mts=Length/@Split[q]},Sort[Table[Min@@Select[q,Count[q,#]==i&],{i,mts}]]];
Table[If[n==1,0,Max@@mmk[PrimePi/@Join@@ConstantArray@@@If[n==1,{},FactorInteger[n]]]],{n,1,100}]

a(n) = A061395(A367580(n)).
a(n^k) = a(n) for all positive integers n and k.
If n is a power of a squarefree number, a(n) = A055396(n).

A367587 Least element in row n of A367858 (multiset multiplicity cokernel).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Dec 03 2023

nonn

We define the multiset multiplicity cokernel MMC(m) of a multiset m by the following property, holding for all distinct multiplicities k >= 1. If S is the set of elements of multiplicity k in m, then max(S) has multiplicity |S| in MMC(m). For example, MMC({1,1,2,2,3,4,5}) = {2,2,5,5,5}, and MMC({1,2,3,4,5,5,5,5}) = {4,4,4,4,5}. As an operation on multisets MMC is represented by A367858, and as an operation on their ranks it is represented by A367859.

Indices of first appearances are A008578.
Depends only on rootless base A052410, see A007916.
For kernel instead of cokernel we have A055396.
For maximum instead of minimum element we have A061395.
The opposite version is A367583.
Row-minima of A367858.
A007947 gives squarefree kernel.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A124010 lists prime multiplicities (prime signature), sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A238747 gives prime metasignature, sorted A353742.
A304038 lists distinct prime indices, length A001221, sum A066328.
A367579 lists MMK, rank A367580, sum A367581, max A367583, min A055396.
Cf. A000720, A027746, A051904, A071625, A072774, A130091, A367582, A367584, A367585, A367586.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
mmc[q_]:=With[{mts=Length/@Split[q]}, Sort[Table[Max@@Select[q,Count[q,#]==i&],{i,mts}]]];
Table[If[n==1,0,Min@@mmc[prix[n]]],{n,100}]

a(n) = A055396(A367859(n)).
a(n^k) = a(n) for all positive integers n and k.
If n is a power of a squarefree number, a(n) = A061395(n).

A367685 Numbers divisible by their multiset multiplicity kernel.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 36, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 80, 81, 83, 88, 89, 92, 96, 97, 98, 99, 100, 101, 103, 104, 107

Offset: 1

Gus Wiseman, Nov 30 2023

nonn

First differs from A344586 in lacking 120.
We define the multiset multiplicity kernel (MMK) of a positive integer n to be the product of (least prime factor with exponent k)^(number of prime factors with exponent k) over all distinct exponents k appearing in the prime factorization of n. For example, 90 has prime factorization 2^1 * 3^2 * 5^1, so for k = 1 we have 2^2, and for k = 2 we have 3^1, so MMK(90) = 12. As an operation on multisets MMK is represented by A367579, and as an operation on their ranks it is represented by A367580.
First differs from A212165 at n=73: A212165(73)=120 is not a term of this. - Amiram Eldar, Dec 04 2023

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   11: {5}
   12: {1,1,2}
   13: {6}
   16: {1,1,1,1}
   17: {7}
   18: {1,2,2}
   19: {8}
   20: {1,1,3}
   23: {9}
   24: {1,1,1,2}

Includes all prime-powers A000961.
The only squarefree terms are the primes A008578.
Partitions of this type are counted by A367684.
A007947 gives squarefree kernel.
A027746 lists prime factors, length A001222, indices A112798.
A027748 lists distinct prime factors, length A001221, indices A304038.
A071625 counts distinct prime exponents.
A124010 gives multiset of multiplicities (prime signature), sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A367579 lists MMK, ranks A367580, sum A367581, max A367583.
Cf. A005117, A039956, A051904, A052409, A072774, A130091, A367582, A367584, A367586, A367682.

mmk[n_Integer]:= Product[Min[#]^Length[#]&[First/@Select[FactorInteger[n], Last[#]==k&]], {k,Union[Last/@FactorInteger[n]]}];
Select[Range[100], Divisible[#,mmk[#]]&]

A367683 Numbers whose sorted prime signature is the same as the multiset multiplicity kernel of their prime indices.

Original entry on oeis.org

1, 2, 6, 9, 10, 12, 14, 18, 22, 26, 30, 34, 38, 40, 42, 46, 58, 62, 66, 70, 74, 78, 82, 86, 90, 94, 102, 106, 110, 112, 114, 118, 122, 125, 126, 130, 134, 138, 142, 146, 154, 158, 166, 170, 174, 178, 182, 186, 190, 194, 198, 202, 206, 210, 214, 218, 222, 225

Offset: 1

Gus Wiseman, Nov 30 2023

nonn

We define the multiset multiplicity kernel (MMK) of a positive integer n to be the product of (least prime factor with exponent k)^(number of prime factors with exponent k) over all distinct exponents k appearing in the prime factorization of n. For example, 90 has prime factorization 2^1 * 3^2 * 5^1, so for k = 1 we have 2^2, and for k = 2 we have 3^1, so MMK(90) = 12. As an operation on multisets MMK is represented by A367579, and as an operation on their ranks it is represented by A367580.

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    6: {1,2}
    9: {2,2}
   10: {1,3}
   12: {1,1,2}
   14: {1,4}
   18: {1,2,2}
   22: {1,5}
   26: {1,6}
   30: {1,2,3}
   34: {1,7}
   38: {1,8}
   40: {1,1,1,3}
   42: {1,2,4}
   46: {1,9}
   58: {1,10}
   62: {1,11}
   66: {1,2,5}
   70: {1,3,4}

Michael De Vlieger, Table of n, a(n) for n = 1..10000
Michael De Vlieger, 20 X 20 color coded list of terms, color function: gray = 1, red = prime, gold = composite prime power, green = squarefree composite, blue-purple = numbers neither squarefree nor prime powers. Bright green = primorial, light green = even squarefree semiprime, light blue = highly composite, middle blue = in A055932, purple = squareful but not a prime power.
Michael De Vlieger, 485 X 485 = 235225-term raster with the same color code as above.

Squarefree terms are A039956.
The LHS is A118914, unsorted A124010.
Prime-power terms are A307539.
The RHS is A367579, ranks A367580, sum A367581, max A367583.
Partitions of this type are counted by A367682.
A007947 gives squarefree kernel.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A181819 gives prime shadow, with an inverse A181821.
A238747 gives prime metasignature, reversed A353742.
A304038 lists distinct prime indices, length A001221, sum A066328.
A367582 counts partitions by sum of multiset multiplicity kernel.
Cf. A000720, A000961, A005117, A051904, A052409, A071625, A072774, A130091, A367584, A367586, A367587.

mmk[q_]:=With[{mts=Length/@Split[q]}, Sort[Table[Min@@Select[q,Count[q,#]==i&], {i,mts}]]];
Select[Range[100], #==1||Sort[Last/@FactorInteger[#]] == mmk[PrimePi/@Join@@ConstantArray@@@FactorInteger[#]]&]

A329436 Expansion of Sum_{k>=1} (-1 + Product_{j>=2} (1 + x^(k*j))).

Original entry on oeis.org

0, 1, 1, 2, 2, 4, 3, 5, 6, 8, 7, 13, 10, 16, 18, 22, 21, 34, 29, 44, 45, 56, 56, 82, 78, 100, 109, 136, 137, 185, 181, 231, 247, 295, 317, 399, 404, 490, 533, 638, 669, 817, 853, 1020, 1108, 1276, 1371, 1638, 1728, 2017, 2186, 2519, 2702, 3153, 3371, 3885

Offset: 1

Ilya Gutkovskiy, Nov 13 2019

nonn

Inverse Moebius transform of A025147.

Number of uniform (constant multiplicity) partitions of n not containing 1, ranked by the odd terms of A072774. - Gus Wiseman, Dec 01 2023

			From _Gus Wiseman_, Dec 01 2023: (Start)
The a(2) = 1 through a(10) = 8 uniform partitions not containing 1:
  (2)  (3)  (4)    (5)    (6)      (7)    (8)        (9)      (10)
            (2,2)  (3,2)  (3,3)    (4,3)  (4,4)      (5,4)    (5,5)
                          (4,2)    (5,2)  (5,3)      (6,3)    (6,4)
                          (2,2,2)         (6,2)      (7,2)    (7,3)
                                          (2,2,2,2)  (3,3,3)  (8,2)
                                                     (4,3,2)  (5,3,2)
                                                              (3,3,2,2)
                                                              (2,2,2,2,2)
(End)

The strict case is A025147.
The version allowing 1 is A047966.
The version requiring 1 is A097986.
Cf. A023645, A047968, A072774, A096765, A329435, A329436, A367586.

nmax = 56; CoefficientList[Series[Sum[-1 + Product[(1 + x^(k j)), {j, 2, nmax}], {k, 1, nmax}], {x, 0, nmax}], x] // Rest
Table[Length[Select[IntegerPartitions[n], FreeQ[#,1]&&SameQ@@Length/@Split[#]&]], {n,0,30}] (* Gus Wiseman, Dec 01 2023 *)

G.f.: Sum_{k>=1} A025147(k) * x^k / (1 - x^k).

a(n) = Sum_{d|n} A025147(d).

cp's OEIS Frontend

A097986 Number of strict integer partitions of n with a part dividing all the other parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A367580 Multiset multiplicity kernel (MMK) of n. Product of (least prime factor with exponent k)^(number of prime factors with exponent k) over all distinct exponents k appearing in the prime factorization of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A367579 Irregular triangle read by rows where row n is the multiset multiplicity kernel (MMK) of the multiset of prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A367584 Least number whose multiset multiplicity kernel (in which each prime exponent becomes the least prime factor with that exponent) is n. First position of n in A367580.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A367583 Greatest element in row n of A367579 (multiset multiplicity kernel).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A367587 Least element in row n of A367858 (multiset multiplicity cokernel).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula

A367685 Numbers divisible by their multiset multiplicity kernel.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367683 Numbers whose sorted prime signature is the same as the multiset multiplicity kernel of their prime indices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs