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 A062094 #6 Mar 20 2023 22:57:29 %S A062094 2,12,34,217,731,1743,2183,3759,21179,121179,931303,1931303,11175573, %T A062094 11379829,17896361,18419721,96919009,889910891,1889910891,2742368917, %U A062094 25741106537,110203233579,679231622473,1679231622473,7921256096487 %N A062094 a(1) = 2, a(n) = concatenation of two closest factors of a(n-1) whose product equals a(n-1) or if a(n-1) is a prime then the concatenation of 1 and a(n-1). %H A062094 Sean A. Irvine, <a href="/A062094/b062094.txt">Table of n, a(n) for n = 1..250</a> %e A062094 a(1) = 2 is a prime hence a(2) = 12; a(3) = 34, 3*4 = 12 and 3<4. %t A062094 f[n_Integer] := (d = Divisors[n]; l = Length[d]; If[ EvenQ[l], ToExpression[ ToString[ d[[l/2]] ] <> ToString[ d[[l/2 + 1]] ]], ToExpression[ ToString[d[[l/2 + .5]] ] <> ToString[ d[[l/2 + .5]] ]]] ); NestList[f, 2, 25] %Y A062094 Cf. A003681, A062095. %K A062094 nonn,easy,base %O A062094 1,1 %A A062094 _Amarnath Murthy_, Jun 16 2001 %E A062094 More terms from _Robert G. Wilson v_, Aug 08 2001