|
| |
|
|
A157451
|
|
Number generated by regarding the numbers in row n of A139038 as digits of a base n number.
|
|
0
| |
|
|
1, 3, 13, 85, 806, 9583, 140050, 2434185, 49031983, 1122332211, 28768909071, 816222524845, 25389827448220, 859153189293015, 31417769545499716, 1234605616147931665, 51882038993710230701, 2321660210597147557819
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| t(n,m)== Min[1 + Floor[m/2], 1 + Floor[(n - m)/2]]; a(n)=FromDigits[{Table[t[n, m], {m, 0, n}], n + 1}, n + 1].
|
|
|
EXAMPLE
| Row 5 of A139038 is 1,1,2,1,1. 11211 in base 5 = 5^4 + 5^3 + 2*5^2 + 5 + 1 = 806, so a(5) = 806.
|
|
|
MATHEMATICA
| t[n_, m_] = Min[Floor[(m+1)/2], 1 + Floor[(n - m)/2]];
Table[FromDigits[{Table[t[n, m], {m, 1, n}], n}, n], {n, 1, 21}]
|
|
|
CROSSREFS
| A139038
Sequence in context: A125500 A121679 A023037 * A152112 A188204 A167810
Adjacent sequences: A157448 A157449 A157450 * A157452 A157453 A157454
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 01 2009
|
|
|
EXTENSIONS
| Edited by Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Sep 25 2011
|
| |
|
|
