A030104 Base 5 reversal of n (written in base 10).

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, 51, 76, 101, 6, 31, 56, 81, 106, 11, 36, 61, 86, 111, 16, 41, 66, 91, 116, 21, 46, 71, 96, 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

Offset

0,3

Links

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

Mathematica

IntegerReverse[Range[0, 100], 5] (* Paolo Xausa, Aug 07 2024 *)

Prog

(PARI) a(n, b=5)=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. A134028, A030101 - A030108, A004086, A055950, A319722.

Sequence in context: A116912 A377938 A255690 * A255590 A049563 A198495

Adjacent sequences: A030101 A030102 A030103 * A030105 A030106 A030107

Keyword

nonn,base,look,easy

Author

David W. Wilson

Status

approved