|
|
A049363
|
|
a(1) = 1; for n > 1, smallest digitally balanced number in base n.
|
|
23
|
|
|
1, 2, 11, 75, 694, 8345, 123717, 2177399, 44317196, 1023456789, 26432593615, 754777787027, 23609224079778, 802772380556705, 29480883458974409, 1162849439785405935, 49030176097150555672, 2200618769387072998445, 104753196945250864004691, 5271200265927977839335179
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (102345....n-1) in base n. - Ulrich Schimke (ulrschimke(AT)aol.com)
|
|
EXAMPLE
|
a(6) = 102345_6 = 1*6^5 + 2*6^3 + 3*6^2 + 4*6^1 + 5*6^0 = 8345.
|
|
MAPLE
|
a:= n-> n^(n-1)+add((n-i)*n^(i-1), i=1..n-2):
|
|
MATHEMATICA
|
Table[FromDigits[Join[{1, 0}, Range[2, n-1]], n], {n, 20}] (* Harvey P. Dale, Oct 12 2012 *)
|
|
PROG
|
(Haskell)
a049363 n = foldl (\v d -> n * v + d) 0 (1 : 0 : [2..n-1])
(Python)
def A049363(n): return (n**n-n)//(n-1)**2+n**(n-2)*(n-1)-1 if n>1 else 1 # Chai Wah Wu, Mar 13 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Ulrich Schimke (ulrschimke(AT)aol.com)
|
|
STATUS
|
approved
|
|
|
|