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

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

Offset

1,1

Links

Chris R. Rehmann, Table of n, a(n) for n = 1..10000

Mathematica

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

Prog

(Python)
from sympy.ntheory import digits
from itertools import count, islice
def agen(): # generator of terms
    for n in count(1): yield from [7-d for d in digits(n, 8)[1:]]
print(list(islice(agen(), 90))) # Michael S. Branicky, Nov 09 2025

Crossrefs

Cf. A030315, A030351, A030399, A031251, A030586, A031016, A031098, A031310.

Sequence in context: A022962 A023448 A307337 * A249347 A284805 A225660

Adjacent sequences: A031052 A031053 A031054 * A031056 A031057 A031058

Keyword

nonn,base

Author

Clark Kimberling

Status

approved