A290350 Trajectory of 48 under the map x -> A289667(x).

48, 201, 310, 1894, 5321, 12706, 19475, 38759, 16151, 23120, 16496, 49145, 108244, 499453, 3436777, 10278262, 33836945, 240512002, 913716328, 939389234, 3295603306, 27693125191, 43752137122, 225022142762, 2016929822398, 21026295155804, 66261353668847, 675731396348989

Offset: 1

Author

Chai Wah Wu, Jul 28 2017

Keywords

• nonn
• base

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..121

Crossrefs

Cf. A289667, A290328, A290329.

Programs

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 *)