OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[1] = 1; a[2] = 2;
a[n_] := a[n] =
For[k = a[n - 1] + 1, True, k++,
If[FreeQ[
Table[BitOr[a[i], a[j]], {i, 1, n - 2}, {j, i + 1, n - 1}], k],
Return[k]]];
PROG
(Python)
A333975_list, aset, m = [1, 2], set(), 2
for i in range(3, 10001):
for j in range(i-2):
aset.add(m|A333975_list[j])
m += 1
while m in aset:
m += 1
A333975_list.append(m) # Chai Wah Wu, Dec 21 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Michal D. Kuczynski, Sep 03 2020
STATUS
approved