OFFSET
1,16
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000
FORMULA
EXAMPLE
For n = 64 = 2^6, a(64) = 2^(floor(6/2)-1) = 2^2 = 4.
MATHEMATICA
f[p_, e_] := p^Max[0, Floor[e/2-1]]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 30 2022 *)
PROG
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Nov 28 2017
STATUS
approved