A031251 Write n in base 5, then complement each digit (d -> 4-d) and juxtapose.

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

Offset

1,1

Links

Table of n, a(n) for n=1..90.

Mathematica

4 - Flatten[ IntegerDigits[ Range@50, 5]] (* Robert G. Wilson v, Jul 01 2014 *)

Crossrefs

Sequence in context: A158459 A319666 A307333 * A194885 A128317 A344348

Adjacent sequences: A031248 A031249 A031250 * A031252 A031253 A031254

Keyword

nonn,base

Author

Clark Kimberling

Status

approved