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,3

Links

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

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A270418 A056192 A255693 * A255593 A037895 A037903

Adjacent sequences: A030104 A030105 A030106 * A030108 A030109 A030110

Keyword

nonn,base,look

Author

David W. Wilson

Status

approved