cp's OEIS Frontend

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

%I A191244 #13 Jan 05 2013 15:33:40
%S A191244 1,10110,110100,1011130,3234210,22142230,123052510,523053070,
%T A191244 2520607100,11111111110,479110292610,19641010776330,80101410369310,
%U A191244 210510130141118110,1212103125891481260,315281211715711270,12138214138151315710,56015814091312161590,1780471401817161317410,6151213981715112481715110
%N A191244 a(1)=1; for n>1, a(n) = n*(10^n-1)/9 written in base n.
%C A191244 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 A191244 A000461(n) written in base n.
%e A191244 4444 in base 4 is 1011130.
%p A191244 f:=n->n*(10^n-1)/9;
%p A191244 g:=n->convert(f(n),base,n);
%p A191244 for n from 2 to 20 do
%p A191244 t1:=g(n);
%p A191244 t2:=nops(t1);
%p A191244 lprint( [seq(t1[t2+1-i],i=1..t2)]);
%t A191244 Join[{1}, Table[s = FromDigits[Table[n, {n}]]; FromDigits[IntegerDigits[s, n]], {n, 2, 9}]] (* _T. D. Noe_, Dec 30 2012 *)
%K A191244 nonn,base
%O A191244 1,2
%A A191244 _Ruskin Harding_, Dec 30 2012
%E A191244 Edited with Maple program by _N. J. A. Sloane_, Jan 05 2013