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

1, 3, 19, 125, 1141, 12943, 182743, 3080025, 60530761, 1357997531, 34237329611, 957927505717, 29446189175677, 986272776455415, 35746439978786671, 1393753996031259953, 58165330912030118161, 2586788074128361802419

Offset: 1

Author

Roger L. Bagula, Mar 01 2009

Keywords

• nonn
• base

Comments

Note that for odd n, the digits will include n itself.

Examples

			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.
		

Crossrefs

A139038, A003983

Programs

Mathematica

t[n_, m_] =Min[1 + 2*m, 1 + 2*(n - m)];
Table[FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1], {n, 0, 20}]

Formula

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

Extensions

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