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

Comments

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

Links

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

Formula

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

Example

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.

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}]

Crossrefs

A139038, A003983

Sequence in context: A318811 A352299 A074572 * A027308 A295371 A156069

Adjacent sequences: A157452 A157453 A157454 * A157456 A157457 A157458

Keyword

nonn,base

Author

Roger L. Bagula, Mar 01 2009

Extensions

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

Status

approved