OFFSET
0,2
COMMENTS
a(j) can only equal some A162406(k). [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]] != {} &]; t = Table[ a@n, {n, 0, 100}]; Rest@t - Most@t (* Robert G. Wilson v, Aug 01 2009 *)
CROSSREFS
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