|
Search: id:A163808
|
|
|
| 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. |
|
+0
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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
All terms are even.
|
|
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}] [From Harvey P. Dale (hpd1(AT)nyu.edu), Aug 13 2009]
|
|
CROSSREFS
|
Cf. A163809
Sequence in context: A137450 A163937 A083457 this_sequence A127058 A094359 A129898
Adjacent sequences: A163805 A163806 A163807 this_sequence A163809 A163810 A163811
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Leroy Quet (q1qq2qqq3qqqq(AT)yahoo.com), Aug 04 2009
|
|
EXTENSIONS
|
Additional terms provided. Harvey P. Dale (hpd1(AT)nyu.edu), Aug 12 2009
More terms from Sean A. Irvine (sairvin(AT)xtra.co.nz), Nov 05 2009
|
|
|
Search completed in 0.002 seconds
|
