%I #26 Aug 07 2024 03:38:04
%S 0,1,2,3,4,1,6,11,16,21,2,7,12,17,22,3,8,13,18,23,4,9,14,19,24,1,26,
%T 51,76,101,6,31,56,81,106,11,36,61,86,111,16,41,66,91,116,21,46,71,96,
%U 121,2,27,52,77,102,7,32,57,82,107,12,37,62,87,112,17,42,67,92,117,22,47,72,97
%N Base 5 reversal of n (written in base 10).
%H Seiichi Manyama, <a href="/A030104/b030104.txt">Table of n, a(n) for n = 0..3124</a>
%t IntegerReverse[Range[0, 100], 5] (* _Paolo Xausa_, Aug 07 2024 *)
%o (PARI) a(n,b=5)=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. A134028, A030101 - A030108, A004086, A055950, A319722.
%K nonn,base,look,easy
%O 0,3
%A _David W. Wilson_