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,2

Comments

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

Links

Table of n, a(n) for n=1..18.

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

A139038, A003983

Sequence in context: A014304 A370092 A063548 * A369694 A074551 A135074

Adjacent sequences: A157449 A157450 A157451 * A157453 A157454 A157455

Keyword

nonn,base

Author

Roger L. Bagula, Mar 01 2009

Extensions

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

Status

approved