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 A136611 #14 Oct 29 2022 16:29:14
%S A136611 0,1,2,3,1024,6,56,9,100000000000,106993205379072,210,16,
%T A136611 267198604589286774829171,20,462,552,
%U A136611 2220446049250313080847263336181640625,27
%N A136611 (0, 1, 2, 3, 2^2, 5, 2*3, 7, 2^3, 3^2, 2*5, 11, 2^2*3, ...) becomes (0, 1, 2, 3, 4^5, 6, 7*8, 9, 10^11, 12^13, 14*15, 16, 17^18*19, ...).
%C A136611 a(36) has 8261 decimal digits.
%H A136611 Michael De Vlieger, <a href="/A136611/b136611.txt">Table of n, a(n) for n = 0..35</a>
%e A136611 a(4) = 4^5 = 1024,
%e A136611 a(6) = 7*8 = 56,
%e A136611 a(8) = 10^11 = 100000000000,
%e A136611 a(9) = 12^13 = 19216339899072,
%e A136611 a(10) = 14*15 = 210,
%e A136611 a(12) = 17^18*19 = 266314164608823014829171,
%e A136611 etc.
%t A136611 j = k = 0; f[n_] := Flatten@ Riffle[Map[If[#2 == 1, {}, {"~Power~"}] & @@ # &, FactorInteger[n]], "~Times~"]; Array[(j = k; k += #2 + 1; ToExpression@ Apply[StringJoin, Riffle[Map[ToString, j + Range[0, #2]], #1]]) & @@ {#, Length[#]} &@ f[#] &, 22, 0] (* _Michael De Vlieger_, Oct 24 2022 *)
%Y A136611 Cf. A141269, A141270.
%K A136611 nonn
%O A136611 0,3
%A A136611 _Juri-Stepan Gerasimov_, Nov 08 2008
%E A136611 a(9) and a(12) corrected and 2 terms appended by _R. J. Mathar_, Apr 14 2010
%E A136611 Offset 0 from _Michael De Vlieger_, Oct 24 2022