login
A290350
Trajectory of 48 under the map x -> A289667(x).
2
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,1
LINKS
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