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

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, 27, 35, 43, 51, 59, 4, 12, 20, 28, 36, 44, 52, 60, 5, 13, 21, 29, 37, 45, 53, 61, 6, 14, 22, 30, 38, 46, 54, 62, 7, 15, 23, 31, 39, 47, 55, 63, 1, 65, 129, 193, 257, 321, 385, 449, 9, 73, 137

Offset: 0

Author

David W. Wilson

Keywords

• nonn
• base
• look

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..4095

Crossrefs

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

Programs

Mathematica

Table[FromDigits[Reverse[IntegerDigits[n,8]],8],{n,0,80}] (* Harvey P. Dale, Jun 04 2021 *)

PARI

a(n,b=8)=subst(Polrev(base(n,b)),x,b) /* where */
base(n,b)={my(a=[n%b]);while(n\=b,a=concat(n%b,a));a}  \\ M. F. Hasler, Nov 04 2011