login
This site is supported by donations 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

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.

License Agreements, Terms of Use, Privacy Policy. .

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