A264618 Working in binary, write n followed by 0 then n-reversed (including leading zeros); show result in base 10.

0, 5, 17, 27, 65, 85, 99, 119, 257, 297, 325, 365, 387, 427, 455, 495, 1025, 1105, 1161, 1241, 1285, 1365, 1421, 1501, 1539, 1619, 1675, 1755, 1799, 1879, 1935, 2015, 4097, 4257, 4369, 4529, 4617, 4777, 4889, 5049, 5125, 5285, 5397, 5557, 5645, 5805, 5917, 6077, 6147, 6307, 6419, 6579, 6667, 6827, 6939, 7099, 7175

Offset

0,2

Comments

a(n) = A264619(n) - A062383(n); n>0: A070939(a(n)) = 2*A070939(n)+1; A000120(a(n)) = 2*A000120(n); n>0: A023416(a(n)) = 2*A023416(n)+1. - Reinhard Zumkeller, Dec 01 2015

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

Cf. A006995, A048701 (n followed by n-reversed), A264619.

First differences: A265028.

Cf. A007088, A030308, A000120, A023416, A062383, A070939.

Sequence in context: A018447 A196142 A195032 * A271471 A217512 A289836

Adjacent sequences: A264615 A264616 A264617 * A264619 A264620 A264621

Keyword

nonn,base

Author

N. J. A. Sloane, Nov 30 2015

Status

approved