OFFSET
1,2
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..2048
FORMULA
MAPLE
a:= n-> mul((2^numtheory[pi](i[1]))^i[2], i=ifactors(n)[2]):
seq(a(n), n=1..64); # Alois P. Heinz, Jan 14 2021
MATHEMATICA
a[n_] := Product[{p, e} = pe; (2^PrimePi[p])^e, {pe, FactorInteger[n]}];
Array[a, 100] (* Jean-François Alcover, Jan 03 2022 *)
PROG
(MIT/GNU Scheme, with Aubrey Jaffer's SLIB Scheme library)
(require 'factor)
;; Alternatively:
(PARI) A248692(n) = if(1==n, n, my(f=factor(n)); for(i=1, #f~, f[i, 1] = 2^primepi(f[i, 1])); factorback(f)); \\ Antti Karttunen, Feb 01 2021
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Oct 11 2014
STATUS
approved