OFFSET
0,5
LINKS
FORMULA
MATHEMATICA
Array[Block[{i, m, n = #, p}, m = i = 1; While[n > 0, p = Prime[i]; m *= p^Mod[n, p]; n = Quotient[n, p]; i++]; GCD[#, If[m < 2, 0, m Total[#2/#1 & @@@ FactorInteger[m]]]]] &, 101, 0] (* Michael De Vlieger, Feb 04 2022 *)
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Antti Karttunen, Feb 03 2022
STATUS
approved