

A163808


Write n in binary. Place a 0 right of every 1 without a 0 right of it. a(n) = the decimal value of the result.


2



2, 2, 10, 4, 10, 10, 42, 8, 18, 10, 42, 20, 42, 42, 170, 16, 34, 18, 74, 20, 42, 42, 170, 40, 82, 42, 170, 84, 170, 170, 682, 32, 66, 34, 138, 36, 74, 74, 298, 40, 82, 42, 170, 84, 170, 170, 682, 80, 162, 82, 330, 84, 170, 170, 682, 168, 338, 170, 682, 340, 682, 682, 2730
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

All terms are even.


LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000


EXAMPLE

13 in binary is 1101. The first and last 1 each do not have a 0 right of them. So place a 0 after the first 1 and after the last 1 so as to get 101010. a(13) is the decimal equivalent of 101010, which is 42.


MATHEMATICA

f[n_Integer]:=Module[{l=IntegerDigits[n, 2]//.{a___, 1, 1, b___}>{a, 1, 0, 1, b}}, If[Last[l]==1, l=Append[l, 0], l]; FromDigits[l, 2]]; Table[f[i], {i, 60}] (* Harvey P. Dale, Aug 13 2009 *)


CROSSREFS

Cf. A163809.
Sequence in context: A339481 A163937 A083457 * A223126 A127058 A242002
Adjacent sequences: A163805 A163806 A163807 * A163809 A163810 A163811


KEYWORD

base,nonn


AUTHOR

Leroy Quet, Aug 04 2009


EXTENSIONS

Additional terms provided. Harvey P. Dale, Aug 12 2009
More terms from Sean A. Irvine, Nov 05 2009


STATUS

approved



