A191244 a(1)=1; for n>1, a(n) = n*(10^n-1)/9 written in base n.
1, 10110, 110100, 1011130, 3234210, 22142230, 123052510, 523053070, 2520607100, 11111111110, 479110292610, 19641010776330, 80101410369310, 210510130141118110, 1212103125891481260, 315281211715711270, 12138214138151315710, 56015814091312161590, 1780471401817161317410, 6151213981715112481715110
Offset: 1
Examples
4444 in base 4 is 1011130.
Programs
-
Maple
f:=n->n*(10^n-1)/9; g:=n->convert(f(n),base,n); for n from 2 to 20 do t1:=g(n); t2:=nops(t1); lprint( [seq(t1[t2+1-i],i=1..t2)]);
-
Mathematica
Join[{1}, Table[s = FromDigits[Table[n, {n}]]; FromDigits[IntegerDigits[s, n]], {n, 2, 9}]] (* T. D. Noe, Dec 30 2012 *)
Extensions
Edited with Maple program by N. J. A. Sloane, Jan 05 2013
Comments