A031016 Write n in base 7, then complement each digit (d -> 6-d) and juxtapose.

5, 4, 3, 2, 1, 0, 5, 6, 5, 5, 5, 4, 5, 3, 5, 2, 5, 1, 5, 0, 4, 6, 4, 5, 4, 4, 4, 3, 4, 2, 4, 1, 4, 0, 3, 6, 3, 5, 3, 4, 3, 3, 3, 2, 3, 1, 3, 0, 2, 6, 2, 5, 2, 4, 2, 3, 2, 2, 2, 1, 2, 0, 1, 6, 1, 5, 1, 4, 1, 3, 1, 2, 1, 1, 1, 0, 0, 6, 0, 5, 0, 4, 0, 3, 0, 2, 0, 1, 0, 0

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A023447 A280916 A307336 * A261302 A284803 A071691

Adjacent sequences: A031013 A031014 A031015 * A031017 A031018 A031019

Keyword

nonn,base

Author

Clark Kimberling

Status

approved