OFFSET
1,2
COMMENTS
Here the exponents are sorted in increasing order; if they are sorted in decreasing order, we get A046523: the smallest number with the same prime signature as n.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
MAPLE
a:= n-> (l-> mul(ithprime(i)^l[i], i=1..nops(l)))(
sort(map(i-> i[2], ifactors(n)[2]))):
seq(a(n), n=1..100); # Alois P. Heinz, Feb 18 2020
PROG
(PARI) a(n)=factorback(matconcat([primes(#n=factor(n)[, 2])~, vecsort(n)]))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 12 2018
STATUS
approved