|
%I #28 Jul 10 2021 07:58:58
%S 0,1,2,3,4,5,6,7,8,1,10,19,28,37,46,55,64,73,2,11,20,29,38,47,56,65,
%T 74,3,12,21,30,39,48,57,66,75,4,13,22,31,40,49,58,67,76,5,14,23,32,41,
%U 50,59,68,77,6,15,24,33,42,51,60,69,78,7,16,25,34,43,52,61,70,79,8,17,26,35,44
%N Base 9 reversal of n (written in base 10).
%H Seiichi Manyama, <a href="/A030108/b030108.txt">Table of n, a(n) for n = 0..6560</a>
%t Table[FromDigits[Reverse[IntegerDigits[n,9]],9],{n,0,80}] (* _Harvey P. Dale_, Jun 01 2017 *)
%o (PARI) apply( {A030108(n,b=9)=fromdigits(Vecrev(digits(n,b)),b)}, [0..99]) \\ _M. F. Hasler_, May 21 2021, replacing earlier code from _M. F. Hasler_, Nov 04 2011
%Y Cf. A030101 - A030107, A004086, A055958, A319726.
%K nonn,base,look
%O 0,3
%A _David W. Wilson_
|
