login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
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
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: A004780 A359266 A292046 * A136272 A101184 A087643
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 26 12:54 EST 2024. Contains 370352 sequences. (Running on oeis4.)