cp's OEIS Frontend

A157457 Read n-th row of triangle in A157458 and regard it as the expansion of a number in base n+1.

%I A157457 #3 May 01 2013 21:11:53
%S A157457 0,3,16,125,1116,12943,182400,3080025,60524200,1357997531,34237168560,
%T A157457 957927505717,29446184348868,986272776455415,35746439807927296,
%U A157457 1393753996031259953,58165330905054360720,2586788074128361802419
%N A157457 Read n-th row of triangle in A157458 and regard it as the expansion of a number in base n+1.
%t A157457 t[n_, m_] =Min[1 + 2*m, 1 + 2*(n - m), n];
%t A157457 Table[FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1], {n, 0, 20}]
%Y A157457 Cf. A139038, A003983, A157458.
%K A157457 nonn
%O A157457 0,2
%A A157457 _Roger L. Bagula_, Mar 01 2009
%E A157457 Edited by _N. J. A. Sloane_, Aug 27 2009