login
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
OFFSET
1,1
COMMENTS
All terms are even.
LINKS
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
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