A030105 Base 6 reversal of n (written in base 10).
0, 1, 2, 3, 4, 5, 1, 7, 13, 19, 25, 31, 2, 8, 14, 20, 26, 32, 3, 9, 15, 21, 27, 33, 4, 10, 16, 22, 28, 34, 5, 11, 17, 23, 29, 35, 1, 37, 73, 109, 145, 181, 7, 43, 79, 115, 151, 187, 13, 49, 85, 121, 157, 193, 19, 55, 91, 127, 163, 199, 25, 61, 97, 133, 169, 205, 31, 67, 103, 139, 175
Offset: 0
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..7775
Programs
-
Mathematica
Table[FromDigits[Reverse[IntegerDigits[n,6]],6],{n,0,100}] (* Harvey P. Dale, Nov 18 2021 *)
-
PARI
a(n,b=6)=subst(Polrev(base(n,b)),x,b) /* where */ base(n,b)={my(a=[n%b]);while(0