A157455 - OEIS

%I #6 Mar 30 2012 17:35:23

%S 1,3,19,125,1141,12943,182743,3080025,60530761,1357997531,34237329611,

%T 957927505717,29446189175677,986272776455415,35746439978786671,

%U 1393753996031259953,58165330912030118161,2586788074128361802419

%N Number generated by regarding the numbers in row n of A157454 as digits of a base n number.

%C Note that for odd n, the digits will include n itself.

%F t(n,m)=Min[2*m - 1, 2*(n - m) + 1]; a(n)=FromDigits[{Table[t[n, m], {m, 1, n}], n}, n].

%e Row 4 of A157454 is 1,3,3,1. 1331 in base 4 = 4^3 + 3*4^2 + 3*4 + 1 = 125, so a(4) = 125.

%t t[n_, m_] =Min[1 + 2*m, 1 + 2*(n - m)];

%t Table[FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1], {n, 0, 20}]

%Y A139038, A003983

%K nonn,base

%O 1,2

%A _Roger L. Bagula_, Mar 01 2009

%E Edited by _Franklin T. Adams-Watters_, Sep 25 2011