|
Search: id:A162406
|
|
|
| A162406 |
|
a(0)=1. a(n) = a(n-1) + (the largest value among (a(0),a(1),...a(n-1)) that when written in binary occurs as a substring in the binary representation of n). |
|
+0
3
|
|
| 1, 2, 4, 5, 9, 14, 16, 17, 21, 30, 35, 40, 44, 49, 63, 64, 80, 97, 106, 115, 120, 141, 146, 151, 155, 164, 169, 174, 188, 202, 232, 233, 249, 265, 282, 317, 326, 335, 344, 353, 393, 402, 423, 444, 488, 493, 507, 512, 528, 577, 586, 595, 600, 621, 626, 631, 645
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Robert G. Wilson v, Table of n, a(n) for n = 0..1000 . [From Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 01 2009]
|
|
MATHEMATICA
|
a[0] = 1; a[n_] := a[n] = a[n - 1] + Max@ Select[ Table[ a@i, {i, 0, n - 1}], StringPosition[ ToString@ FromDigits@ IntegerDigits[n, 2], ToString@ FromDigits@ IntegerDigits[ #, 2]] != {} &]; Table[ a@n, {n, 0, 53}] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 01 2009]
|
|
CROSSREFS
|
A162404, A162407
Sequence in context: A060167 A118550 A126697 this_sequence A129282 A073153 A073154
Adjacent sequences: A162403 A162404 A162405 this_sequence A162407 A162408 A162409
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Leroy Quet (q1qq2qqq3qqqq(AT)yahoo.com), Jul 02 2009
|
|
EXTENSIONS
|
I extended the sequence beginning with a(12). Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 01 2009
|
|
|
Search completed in 0.002 seconds
|
