OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
a(20) = a('10100') = '100001' = 17; a(24) = a('11000') = '10010' = 18.
MATHEMATICA
Table[FromDigits[Prepend[RotateLeft[Rest[IntegerDigits[n, 2]], 2], 1], 2], {n, 72}] (* Ivan Neretin, Aug 30 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Feb 20 2003
STATUS
approved