OFFSET
1,2
COMMENTS
LINKS
David Broadhurst, Table of n, a(n) for n = 1..221
David Broadhurst, Table of n, A352336(n), A352359(n) for n = 1..221
MATHEMATICA
c[_] = 0; a[1] = c[1] = 1; u = 2; {1}~Join~Reap[Do[k = u; While[Nand[c[k] == 0, BitAnd[a[i - 1], k] == 0], k++]; If[a[i - 1] == u, Sow[i - 1]; While[c[u] > 0, u++]]; Set[{a[i], c[k]}, {k, i}], {i, 2, 1300}]][[-1, -1]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michael De Vlieger, Mar 29 2022
EXTENSIONS
Edited by N. J. A. Sloane, Apr 26 2022
STATUS
approved