|
%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
|
