OFFSET
1,4
LINKS
MATHEMATICA
With[{b = Reverse@ Prime@ Range@ 120}, Array[GCD[PrimeOmega@ #1, Total@ IntegerDigits[#2, MixedRadix[b]]] & @@ {#, Apply[Times, Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Times @@ Prime@ Range@ PrimePi@ p, e}]]} &, 105] ] (* Michael De Vlieger, Nov 18 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 18 2019
STATUS
approved