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).

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

Offset

0,2

Links

Robert G. Wilson v, Table of n, a(n) for n = 0..1000. [From Robert G. Wilson v, 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}] (* Robert G. Wilson v, Aug 01 2009 *)

Crossrefs

Cf. A162404, A162407.

Sequence in context: A234588 A118550 A126697 * A129282 A073153 A073154

Adjacent sequences: A162403 A162404 A162405 * A162407 A162408 A162409

Keyword

base,nonn

Author

Leroy Quet, Jul 02 2009

Extensions

More terms beginning with a(12) from Robert G. Wilson v, Aug 01 2009

Status

approved