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 A157451 #6 Mar 30 2012 17:35:23
%S A157451 1,3,13,85,806,9583,140050,2434185,49031983,1122332211,28768909071,
%T A157451 816222524845,25389827448220,859153189293015,31417769545499716,
%U A157451 1234605616147931665,51882038993710230701,2321660210597147557819
%N A157451 Number generated by regarding the numbers in row n of A139038 as digits of a base n number.
%F A157451 t(n,m)== Min[1 + Floor[m/2], 1 + Floor[(n - m)/2]]; a(n)=FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1].
%e A157451 Row 5 of A139038 is 1,1,2,1,1. 11211 in base 5 = 5^4 + 5^3 + 2*5^2 + 5 + 1 = 806, so a(5) = 806.
%t A157451 t[n_, m_] = Min[Floor[(m+1)/2], 1 + Floor[(n - m)/2]];
%t A157451 Table[FromDigits[{Table[t[n, m], {m, 1, n}], n}, n], {n, 1, 21}]
%Y A157451 A139038
%K A157451 nonn,base
%O A157451 1,2
%A A157451 _Roger L. Bagula_, Mar 01 2009
%E A157451 Edited by _Franklin T. Adams-Watters_, Sep 25 2011