OFFSET
1,2
COMMENTS
We are regarding A003983 as a triangle, not as an array by antidiagonals.
FORMULA
t(n,m)=Min[1 + m, 1 + (n - m)]; a(n)=FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1].
EXAMPLE
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.
MATHEMATICA
t[n_, m_] =Min[m, n - m + 1];
Table[FromDigits[{Table[t[n, m], {m, 1, n}], n}, n], {n, 1, 21}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Roger L. Bagula, Mar 01 2009
EXTENSIONS
Edited by Franklin T. Adams-Watters, Sep 25 2011
STATUS
approved