A191244 - OEIS

%I #13 Jan 05 2013 15:33:40

%S 1,10110,110100,1011130,3234210,22142230,123052510,523053070,

%T 2520607100,11111111110,479110292610,19641010776330,80101410369310,

%U 210510130141118110,1212103125891481260,315281211715711270,12138214138151315710,56015814091312161590,1780471401817161317410,6151213981715112481715110

%N a(1)=1; for n>1, a(n) = n*(10^n-1)/9 written in base n.

%C For n = 2 through 9, this is the decimal number with n digits all equal to n, then written in base n. For n>9 the reader has to separate the "digits" himself (so this is a fairly unsatisfactory sequence).

%C A000461(n) written in base n.

%e 4444 in base 4 is 1011130.

%p f:=n->n*(10^n-1)/9;

%p g:=n->convert(f(n),base,n);

%p for n from 2 to 20 do

%p t1:=g(n);

%p t2:=nops(t1);

%p lprint( [seq(t1[t2+1-i],i=1..t2)]);

%t Join[{1}, Table[s = FromDigits[Table[n, {n}]]; FromDigits[IntegerDigits[s, n]], {n, 2, 9}]] (* _T. D. Noe_, Dec 30 2012 *)

%K nonn,base

%O 1,2

%A _Ruskin Harding_, Dec 30 2012

%E Edited with Maple program by _N. J. A. Sloane_, Jan 05 2013