OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..121
MATHEMATICA
NestList[FromDigits[#, 3] &@ Flatten@ Map[IntegerDigits[#, 3] &, FactorInteger[#] /. {p_, e_} /; p > 0 :> If[e == 1, p, {p, e}]] &, 48, 27] (* Michael De Vlieger, Jul 29 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Chai Wah Wu, Jul 28 2017
STATUS
approved