A157452 Number generated by regarding the numbers in row n of A003983 as digits of a base n number.

1, 3, 16, 105, 961, 11137, 160000, 2738385, 54479161, 1234554321, 31384248336, 884241045961, 27342890695849, 920521266133785, 33512287502995456, 1311768467139281697, 54933923639963082961, 2450641333396432006369

Offset: 1

Author

Roger L. Bagula, Mar 01 2009

Keywords

• nonn
• base

Comments

We are regarding A003983 as a triangle, not as an array by antidiagonals.

Examples

			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.
		

Crossrefs

A139038, A003983

Programs

Mathematica

t[n_, m_] =Min[m, n - m + 1];
Table[FromDigits[{Table[t[n, m], {m, 1, n}], n}, n], {n, 1, 21}]

Formula

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

Extensions

Edited by Franklin T. Adams-Watters, Sep 25 2011