|
%I #9 Dec 20 2018 22:33:32
%S 0,1,2,3,4,5,6,7,8,9,10,1,12,23,34,45,56,67,78,89,100,111,2,13,24,35,
%T 46,57,68,79,90,101,112,3,14,25,36,47,58,69,80,91,102,113,4,15,26,37,
%U 48,59,70,81,92,103,114,5,16,27,38,49,60,71,82,93,104,115,6,17,28,39
%N Base 11 reversal of n (written in base 10).
%H Robert Israel, <a href="/A056960/b056960.txt">Table of n, a(n) for n = 0..10000</a>
%p f:= proc(n) local L,i;
%p L:= convert(n,base,11);
%p add(L[-i]*11^(i-1),i=1..nops(L))
%p end proc:
%p map(f, [$0..100]); # _Robert Israel_, Dec 20 2018
%o (PARI) a(n) = fromdigits(Vecrev(digits(n, 11)), 11); \\ _Michel Marcus_, Dec 20 2018
%Y Cf. A004086, A030101-A030108, A056960-A056963.
%K base,nonn,look
%O 0,3
%A _Henry Bottomley_, Jul 18 2000
|
