This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A051146 Sequence b(n) mentioned in A051145. 2
 1, 3, 6, 7, 11, 12, 13, 15, 22, 23, 31, 56, 57, 59, 62, 63, 99, 100, 101, 103, 110, 111, 119, 120, 121, 123, 126, 127, 171, 172, 173, 175, 190, 191, 239, 240, 241, 243, 246, 247, 251, 252, 253, 255, 310, 311, 319, 328, 329, 331, 334, 335, 339, 340, 341, 343 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 MATHEMATICA (* a5 = A051145 *) a5[0] = 0; a5[1] = 1; a5[n_] := a5[n] = (b = 0; While[b++; BitOr[b, a5[n-1]] <= BitOr[a5[n-2], a5[n-1]]]; b); a[n_] := BitOr[a5[n], a5[n+1]]; Table[a[n], {n, 0, 55}] (* Jean-François Alcover, Jan 09 2013 *) PROG (Haskell) import Data.Bits ((.|.)) a051146 n = a051146_list !! (n-1) a051146_list = zipWith (.|.) a051145_list \$ tail a051145_list -- Reinhard Zumkeller, Oct 25 2012 CROSSREFS Sequence in context: A028795 A004780 A292046 * A136272 A101184 A087643 Adjacent sequences:  A051143 A051144 A051145 * A051147 A051148 A051149 KEYWORD nonn,easy,nice AUTHOR N. J. A. Sloane, E. M. Rains EXTENSIONS More terms from Larry Reeves (larryr(AT)acm.org), Oct 03 2000 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 19 17:48 EDT 2019. Contains 323395 sequences. (Running on oeis4.)