OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
A[0]:= 0: A[1]:= 2: B[1]:= 2:
for n from 2 to 100 do
for k from B[n-1]-A[n-1] do
b:= Bits:-Or(A[n-1], k);
if b > B[n-1] then A[n]:= k; B[n]:= b; break fi
od;
od:
seq(B[n], n=1..100); # Robert Israel, Aug 13 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Larry Reeves (larryr(AT)acm.org), Oct 03 2000
STATUS
approved