close
login
A055126
Base-16 complement of n (write n in base 16, then replace each digit with its base-16 negative).
13
0, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 240, 255, 254, 253, 252, 251, 250, 249, 248, 247, 246, 245, 244, 243, 242, 241, 224, 239, 238, 237, 236, 235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 208, 223, 222, 221, 220, 219, 218, 217, 216, 215
OFFSET
0,2
PROG
(Haskell)
a055126 0 = 0
a055126 n = if d == 0 then 16 * a055126 n' else 16 * a055126 n' + 16 - d
where (n', d) = divMod n 16
-- Reinhard Zumkeller, Mar 12 2014
CROSSREFS
Column k=16 of A248813.
Sequence in context: A022971 A023457 A004456 * A182336 A273369 A272685
KEYWORD
base,easy,nonn,look
AUTHOR
Henry Bottomley, Apr 19 2000
STATUS
approved