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