OFFSET
0,2
COMMENTS
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 0..32767
EXAMPLE
0 -> 000 = 0,
1 -> 101 = 5,
10 -> 10001 = 17,
11 -> 11011 = 27,
100 -> 1000001 = 65,
...
MATHEMATICA
A264618[n_]:=FromDigits[Join[#, {0}, Reverse[#]], 2] &@IntegerDigits[n, 2] (* JungHwan Min, Dec 01 2015 *)
PROG
(Haskell)
a264618 n = foldr (\b v -> 2 * v + b) 0 $ (reverse bs ++ (0 : bs))
where bs = map fromIntegral $ a030308_row n
-- Reinhard Zumkeller, Dec 01 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 30 2015
STATUS
approved