|
%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_
|
