



1, 2, 1, 4, 5, 2, 1, 4, 9, 5, 5, 4, 5, 14, 1, 16, 17, 9, 9, 5, 21, 5, 5, 4, 9, 5, 5, 14, 14, 30, 1, 16, 16, 17, 35, 9, 9, 9, 9, 40, 9, 21, 21, 44, 5, 14, 5, 16, 49, 9, 9, 5, 21, 5, 5, 14, 14, 14, 14, 30, 30, 30, 63, 64, 16, 16, 16, 17, 17, 35, 35, 9, 9, 9, 9, 9, 9, 14, 9, 80, 40, 9, 9, 21
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


COMMENTS

a(j) can only equal some A162406(k). [Robert G. Wilson v, Aug 01 2009]


LINKS

Table of n, a(n) for n=0..83.


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]] != {} &]; t = Table[ a@n, {n, 0, 100}]; Rest@t  Most@t (* Robert G. Wilson v, Aug 01 2009 *)


CROSSREFS

Cf. A162405, A162406.
Sequence in context: A159971 A114158 A248666 * A352458 A132741 A072436
Adjacent sequences: A162404 A162405 A162406 * A162408 A162409 A162410


KEYWORD

base,nonn


AUTHOR

Leroy Quet, Jul 02 2009


EXTENSIONS

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


STATUS

approved



