This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A162407 a(n) = A162406(n+1) - A162406(n). 2
 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). [From Robert G. Wilson v, Aug 01 2009] LINKS 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 [From Robert G. Wilson v, Aug 01 2009] CROSSREFS Sequence in context: A137346 A159971 A114158 * A132741 A072436 A090077 Adjacent sequences:  A162404 A162405 A162406 * A162408 A162409 A162410 KEYWORD base,nonn AUTHOR Leroy Quet, Jul 02 2009 EXTENSIONS I extended the sequence beginning with a(11). Robert G. Wilson v, Aug 01 2009 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .