A055950 -id:A055950 - cp's OEIS frontend

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

David W. Wilson

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

Cf. A134028, A030101 - A030108, A004086, A055950, A319722.

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

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

A319805 a(n) = A319722(n) + A319653(n).

Original entry on oeis.org

0, 2, 4, 6, 8, 6, 12, 18, 24, 30, 12, 18, 24, 30, 36, 18, 24, 30, 36, 42, 24, 30, 36, 42, 48, 26, 36, 62, 88, 114, 36, 62, 88, 114, 140, 62, 88, 98, 124, 150, 88, 114, 124, 134, 160, 114, 140, 150, 160, 170, 52, 62, 72, 98, 124, 62, 88, 98, 124, 150, 72, 98, 124, 150, 176

Offset: 0

Seiichi Manyama, Sep 28 2018

This sequence is different from A055950.

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

Base b: A319785 (b=2), A319803 (b=3), A319804 (b=4), this sequence (b=5), A319806 (b=6), A319807 (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).

Cf. A055950, A319653, A319722.

a:= n-> (l-> add((l[i]+l[-i])*5^(i-1), i=1..nops(l)))(sort(convert(n, base, 5))):
seq(a(n), n=0..64);  # Alois P. Heinz, Aug 07 2024

Table[FromDigits[Reverse[#], 5] + FromDigits[#, 5] & [Sort[IntegerDigits[n, 5]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)

a(n) = my(nd=digits(n, 5)); fromdigits(vecsort(nd), 5) + fromdigits(vecsort(nd,,4), 5); \\ Michel Marcus, Sep 28 2018

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI