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