login
A055122
Base-12 complement of n (write n in base 12, then replace each digit with its base-12 negative).
2
0, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 132, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 120, 131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 108, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 96, 107, 106, 105, 104, 103, 102, 101, 100, 99
OFFSET
0,2
PROG
(Haskell)
a055122 0 = 0
a055122 n = if d == 0 then 12 * a055122 n' else 12 * a055122 n' + 12 - d
where (n', d) = divMod n 12
-- Reinhard Zumkeller, Mar 12 2014
CROSSREFS
Column k=12 of A248813.
Sequence in context: A022967 A023453 A261304 * A279650 A004452 A291467
KEYWORD
base,easy,nonn
AUTHOR
Henry Bottomley, Apr 19 2000
STATUS
approved