OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Array[Times @@ (Power[Max@ IntegerDigits[#1], #2] & @@@ FactorInteger[#]) &, 74] (* Michael De Vlieger, Jan 23 2022 *)
PROG
(Haskell)
a262401 = product . map a054055 . a027746_row'
(PARI) a(n) = my(f=factor(n)); for (k=1, #f~, f[k, 1] = vecmax(digits(f[k, 1]))); factorback(f); \\ Michel Marcus, Jan 22 2022
CROSSREFS
KEYWORD
nonn,base,mult
AUTHOR
Reinhard Zumkeller, Sep 25 2015
STATUS
approved