OFFSET
0,2
COMMENTS
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 0..32767
EXAMPLE
1 -> 111 = 7,
10 -> 10101 = 21,
11 -> 11111 = 31,
100 -> 1001001 = 73,
...
MATHEMATICA
A264619[0] = 1; A264619[n_] := FromDigits[Join[#, {1}, Reverse[#]], 2]&@ IntegerDigits[n, 2] (* JungHwan Min, Dec 01 2015 *)
bnr[n_]:=Module[{idn2=IntegerDigits[n, 2]}, FromDigits[Join[idn2, {1}, Reverse[ idn2]], 2]]; Join[{1}, Array[bnr, 60]] (* Harvey P. Dale, Nov 05 2017 *)
PROG
(Haskell)
a264619 0 = 1
a264619 n = foldr (\b v -> 2 * v + b) 0 $ (reverse bs ++ (1 : bs))
where bs = map fromIntegral $ a030308_row n
-- Reinhard Zumkeller, Dec 01 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 30 2015
STATUS
approved