A031253 Write 2n-1 in base 5 and juxtapose.

1, 3, 1, 0, 1, 2, 1, 4, 2, 1, 2, 3, 3, 0, 3, 2, 3, 4, 4, 1, 4, 3, 1, 0, 0, 1, 0, 2, 1, 0, 4, 1, 1, 1, 1, 1, 3, 1, 2, 0, 1, 2, 2, 1, 2, 4, 1, 3, 1, 1, 3, 3, 1, 4, 0, 1, 4, 2, 1, 4, 4, 2, 0, 1, 2, 0, 3, 2, 1, 0, 2, 1, 2, 2, 1, 4, 2, 2, 1, 2, 2, 3, 2, 3, 0, 2, 3, 2, 2, 3

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Programs

Maple

map(op,[seq(ListTools:-Reverse(convert(2*n-1,base,5)),n=1..100)]); # Robert Israel, Sep 20 2019

Mathematica

Table[IntegerDigits[2n-1,5],{n,60}]//Flatten (* Harvey P. Dale, Jan 14 2024 *)