|
%I #26 Feb 10 2018 17:53:44
%S 1,3,1,1,4,1,5,7,5,1,3,2,9,6,1,7,5,13,11,7,1,1,8,2,16,13,8,1,9,1,6,21,
%T 19,15,9,1,5,10,10,2,25,22,17,10,1,13,19,14,7,31,29,25,19,11,1,3,4,3,
%U 12,2,36,33,28,21,12,1,11,13,7,17,8,43,41,37,31,23,13,1,7,22,11,22,14,2,49,46,41,34,25,14,1,15,7,15,3
%N Triangle G(n,k): the value of n written in base k with digits reversed (but written here in base 10) for 2 <= k <= n.
%e The triangle starts
%e 1;
%e 3, 1;
%e 1, 4, 1;
%e 5, 7, 5, 1;
%e 3, 2, 9, 6, 1;
%p A191780 := proc(n,k) d := ListTools[Reverse](convert(n,base,k)) ; add( op(i,d)*k^(i-1),i=1..nops(d)) ;
%p end proc: # _R. J. Mathar_, Aug 26 2011
%t G[n_, k_] := IntegerDigits[n, k] // Reverse // FromDigits[#, k]&; Table[ G[n, k], {n, 2, 15}, {k, 2, n}] // Flatten (* _Jean-François Alcover_, Feb 10 2018 *)
%Y Cf. A007088..A007095, A030101 (column k=2), A030102 (column k=3), A030103 (column k=4).
%K nonn,tabl,base,easy
%O 2,2
%A _Juri-Stepan Gerasimov_, Aug 02 2011
%E Corrected by _R. J. Mathar_, Aug 26 2011
|
