This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A290350 #16 Jul 30 2017 03:53:51 %S A290350 48,201,310,1894,5321,12706,19475,38759,16151,23120,16496,49145, %T A290350 108244,499453,3436777,10278262,33836945,240512002,913716328, %U A290350 939389234,3295603306,27693125191,43752137122,225022142762,2016929822398,21026295155804,66261353668847,675731396348989 %N A290350 Trajectory of 48 under the map x -> A289667(x). %H A290350 Chai Wah Wu, <a href="/A290350/b290350.txt">Table of n, a(n) for n = 1..121</a> %t A290350 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 A290350 Cf. A289667, A290328, A290329. %K A290350 nonn,base %O A290350 1,1 %A A290350 _Chai Wah Wu_, Jul 28 2017