A051146 Sequence b(n) mentioned in A051145.

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

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: A004780 A359266 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