OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
For n=20, the two distinct prime factors are 2 and 5, the arithmetic mean is sqrt(2*5), and the integer part is a(20)=3.
MATHEMATICA
rad[n_] := Times @@ (First@# & /@ FactorInteger@n); Table[Floor[(rad[n])^(1/PrimeNu[n])], {n, 1, 50}] (* G. C. Greubel, May 19 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Sep 08 2016
STATUS
approved