OFFSET
0,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..4095 (4095 = 16^3 - 1)
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
KEYWORD
AUTHOR
Henry Bottomley, Apr 19 2000
STATUS
approved
