OFFSET
1,2
COMMENTS
Unsorted prime signature (A124010) is the sequence of exponents in a number's prime factorization.
EXAMPLE
The prime signature of 12345678 = 2*3*3*47*14593 is (1,2,1,1), and the least number with prime signature (1,1,2,1) is 1050 = 2*3*5*5*7, so a(12345678) = 1050.
MATHEMATICA
ptnToNorm[y_]:=Join@@Table[ConstantArray[i, y[[i]]], {i, Length[y]}];
Table[Times@@Prime/@ptnToNorm[Reverse[Last/@If[n==1, {}, FactorInteger[n]]]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 18 2020
STATUS
approved