|
Search: id:A162438
|
|
|
| A162438 |
|
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 maximized. a(n) = the decimal equivalent of the resulting binary number. |
|
+0
2
|
|
| 1, 2, 6, 26, 218, 7002, 1792858, 14687099738, 30801080592587610, 529158535306496354546309978, 19064945459410035469668296404984822042942298
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
The difference between A162438(n) - A162437(n): 0, 0, 1, 5, 45, 1453, 372141, 3048582573, ..., . [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 27 2009]
|
|
EXAMPLE
|
The binary representation of the first few terms: 1, 10, 110, 11010, 11011010
|
|
MATHEMATICA
|
a[1] = 1; a[2] = 2; a[n_] := Block[ {a1 = IntegerDigits[a[n - 1], 2], a2 = IntegerDigits[ a[n - 2], 2]}, Max[ 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
|
A162437, A005203, A111061
Sequence in context: A032014 A112948 A007139 this_sequence A137071 A034565 A053687
Adjacent sequences: A162435 A162436 A162437 this_sequence A162439 A162440 A162441
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Leroy Quet (q1qq2qqq3qqqq(AT)yahoo.com), Jul 03 2009
|
|
EXTENSIONS
|
I extended the sequence and added a comment line and the Mathematica coding. Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 27 2009
|
|
|
Search completed in 0.002 seconds
|
