A055118 Base-8 complement of n (write n in base 8, then replace each digit with its base-8 negative).

0, 7, 6, 5, 4, 3, 2, 1, 56, 63, 62, 61, 60, 59, 58, 57, 48, 55, 54, 53, 52, 51, 50, 49, 40, 47, 46, 45, 44, 43, 42, 41, 32, 39, 38, 37, 36, 35, 34, 33, 24, 31, 30, 29, 28, 27, 26, 25, 16, 23, 22, 21, 20, 19, 18, 17, 8, 15, 14, 13, 12, 11, 10, 9, 448, 455, 454, 453, 452, 451

Offset: 0

Author

Henry Bottomley, Apr 19 2000

Keywords

• base
• easy
• nonn
• look

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..4095 (4095 = 8^4 - 1)
• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A004488, A048647, A055115-A055126.

Column k=8 of A248813.

Programs

Haskell

a055118 0 = 0
a055118 n = if d == 0 then 8 * a055118 n' else 8 * a055118 n' + 8 - d
            where (n', d) = divMod n 8
-- Reinhard Zumkeller, Mar 12 2014