|
|
A157452
|
|
Number generated by regarding the numbers in row n of A003983 as digits of a base n number.
|
|
0
|
|
|
1, 3, 16, 105, 961, 11137, 160000, 2738385, 54479161, 1234554321, 31384248336, 884241045961, 27342890695849, 920521266133785, 33512287502995456, 1311768467139281697, 54933923639963082961, 2450641333396432006369
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
We are regarding A003983 as a triangle, not as an array by antidiagonals.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|