login
Base 8 reversal of n (written in base 10).
8

%I #27 Jul 10 2021 06:56:56

%S 0,1,2,3,4,5,6,7,1,9,17,25,33,41,49,57,2,10,18,26,34,42,50,58,3,11,19,

%T 27,35,43,51,59,4,12,20,28,36,44,52,60,5,13,21,29,37,45,53,61,6,14,22,

%U 30,38,46,54,62,7,15,23,31,39,47,55,63,1,65,129,193,257,321,385,449,9,73,137

%N Base 8 reversal of n (written in base 10).

%H Seiichi Manyama, <a href="/A030107/b030107.txt">Table of n, a(n) for n = 0..4095</a>

%t Table[FromDigits[Reverse[IntegerDigits[n,8]],8],{n,0,80}] (* _Harvey P. Dale_, Jun 04 2021 *)

%o (PARI) a(n,b=8)=subst(Polrev(base(n,b)),x,b) /* where */

%o base(n,b)={my(a=[n%b]);while(n\=b,a=concat(n%b,a));a} \\ _M. F. Hasler_, Nov 04 2011

%Y Cf. A030101 - A030108, A004086, A055956, A319725.

%K nonn,base,look

%O 0,3

%A _David W. Wilson_