%I #6 Mar 30 2012 17:35:23
%S 1,3,16,105,961,11137,160000,2738385,54479161,1234554321,31384248336,
%T 884241045961,27342890695849,920521266133785,33512287502995456,
%U 1311768467139281697,54933923639963082961,2450641333396432006369
%N Number generated by regarding the numbers in row n of A003983 as digits of a base n number.
%C We are regarding A003983 as a triangle, not as an array by antidiagonals.
%F t(n,m)=Min[1 + m, 1 + (n - m)]; a(n)=FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1].
%e Row 4 of A003983 is 1,2,2,1. The number 1221 in base 4 is 4^3 + 2*4^2 + 2*4 + 1 = 105, so a(4) = 105.
%t t[n_, m_] =Min[m, n - m + 1];
%t Table[FromDigits[{Table[t[n, m], {m, 1, n}], n}, n], {n, 1, 21}]
%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
|