OFFSET
1,2
COMMENTS
As an operation on multisets, this is represented by A367579.
FORMULA
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 a(90) = 12.
MATHEMATICA
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}]
CROSSREFS
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.
Positions of prime powers are A072774.
Positions of squarefree numbers are A130091.
Positions of powers of 2 are A367586.
The opposite version (cokernel) is A367859.
A007947 gives squarefree kernel.
A071625 counts distinct prime exponents.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 26 2023
STATUS
approved