OFFSET
1,2
COMMENTS
A variant of A046523 which gives the smallest number with the same prime signature as n. However, in this sequence, if any prime exponent occurs multiple times in n, the extra occurrences are removed and the signature is that of one of the numbers where only distinct values of prime exponents occur (A130091).
LINKS
EXAMPLE
90 = 2^1 * 3^2 * 5^1 has prime signature (1,1,2). The smallest number with prime signature (1,2) is 12 = 2^2 * 3, thus a(90) = 12.
MATHEMATICA
Array[Times @@ MapIndexed[Prime[#2[[1]]]^#1 &, Reverse[Flatten[Cases[FactorInteger[#], {p_, k_} :> Table[PrimePi[p], {k}]]]]] &[Times @@ FactorInteger[#][[All, 1]]] &@ If[# == 1, 1, Times @@ Prime@ FactorInteger[#][[All, -1]]] &, 105] (* Michael De Vlieger, Oct 17 2019, after Gus Wiseman at A181821 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 15 2019
STATUS
approved