The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #16 Jul 30 2017 03:53:51
%S 48,201,310,1894,5321,12706,19475,38759,16151,23120,16496,49145,
%T 108244,499453,3436777,10278262,33836945,240512002,913716328,
%U 939389234,3295603306,27693125191,43752137122,225022142762,2016929822398,21026295155804,66261353668847,675731396348989
%N Trajectory of 48 under the map x -> A289667(x).
%H Chai Wah Wu, <a href="/A290350/b290350.txt">Table of n, a(n) for n = 1..121</a>
%t 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 *)
%Y Cf. A289667, A290328, A290329.
%K nonn,base
%O 1,1
%A _Chai Wah Wu_, Jul 28 2017