|
| |
|
|
A162437
|
|
a(1)=1, a(2)=2. Take terms a(n-1) and a(n-2), then convert to binary. Concatenate them, with either binary a(n-1) on the left and a(n-2) on the right, or with a(n-1) on the right and a(n-2) on the left such that the value of the resulting binary number is minimized. a(n) = the decimal equivalent of the resulting binary number.
|
|
1
| |
|
|
1, 2, 5, 21, 173, 5549, 1420717, 11638517165, 24407739551034797, 419321772563920711635545517, 15107659029337673520218077770654501397966253
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| The binary representation of the first few terms: 1, 10, 101, 10101, 10101101
|
|
|
MATHEMATICA
| a[1] = 1; a[2] = 2; a[n_] := Block[{a1 = IntegerDigits[ a[n - 1], 2], a2 = IntegerDigits[ a[n - 2], 2]}, Min[ FromDigits[ Join[a1, a2], 2], FromDigits[ Join[a2, a1], 2]]]; Array[a, 13] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 27 2009]
|
|
|
CROSSREFS
| A162438, A005203, A111061
Sequence in context: A176527 A117261 A108021 * A007570 A173313 A174143
Adjacent sequences: A162434 A162435 A162436 * A162438 A162439 A162440
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Leroy Quet, Jul 03 2009
|
|
|
EXTENSIONS
| I extended the sequence and added the Mathematica coding. Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 27 2009
|
| |
|
|
