OFFSET
0,2
MATHEMATICA
t[n_, m_] =Min[1 + 2*m, 1 + 2*(n - m), n];
Table[FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1], {n, 0, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 01 2009
EXTENSIONS
Edited by N. J. A. Sloane, Aug 27 2009
STATUS
approved