cp's OEIS Frontend

A004053 For m=2,3,..., write m in bases 2,3,..,m.

%I A004053 #23 Dec 01 2024 15:40:01
%S A004053 10,11,10,100,11,10,101,12,11,10,110,20,12,11,10,111,21,13,12,11,10,
%T A004053 1000,22,20,13,12,11,10,1001,100,21,14,13,12,11,10,1010,101,22,20,14,
%U A004053 13,12,11,10,1011,102,23,21,15,14,13,12,11,10,1100,110,30,22,20,15,14,13,12,11,10
%N A004053 For m=2,3,..., write m in bases 2,3,..,m.
%H A004053 Alois P. Heinz, <a href="/A004053/b004053.txt">Rows n = 2..20, flattened</a> (row 21 would require digits > 9)
%e A004053 Triangle begins:
%e A004053     10;
%e A004053     11,  10;
%e A004053    100,  11, 10;
%e A004053    101,  12, 11, 10;
%e A004053    110,  20, 12, 11, 10;
%e A004053    111,  21, 13, 12, 11, 10;
%e A004053   1000,  22, 20, 13, 12, 11, 10;
%e A004053   1001, 100, 21, 14, 13, 12, 11, 10;
%e A004053   ...
%t A004053 FromDigits/@Flatten[Table[IntegerDigits[m,b],{m,2,20},{b,2,m}],1] (* _Harvey P. Dale_, Dec 01 2024 *)
%o A004053 (PARI) T(n, k) = fromdigits(digits(n, k), 10);
%o A004053 tabl(nn) = for (n=2, nn, for (b=2, n, print1(T(n, b), ", "))); \\ _Michel Marcus_, Aug 30 2019
%Y A004053 Cf. A007088, A007090, A007091, A007092, A007093, A007094, A007095.
%K A004053 nonn,base,tabl
%O A004053 2,1
%A A004053 Johan Boye (johbo(AT)ida.liu.se)