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,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

Cf. A289667, A290328, A290329.

Sequence in context: A296367 A275507 A072254 * A260098 A260286 A183683

Adjacent sequences: A290347 A290348 A290349 * A290351 A290352 A290353

Keyword

nonn,base

Author

Chai Wah Wu, Jul 28 2017

Status

approved