OFFSET
1,2
COMMENTS
See the variant A118250 for comments and examples.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = {1}; b = {1}; Do[k = b[[i - 1]] + 1; While[SequenceCount[Flatten@ a, Set[d, Reverse@ IntegerDigits[k, 2]]] != 0, k++]; a = Join[a, d]; AppendTo[b, k], {i, 2, 59}]; b (* Michael De Vlieger, Aug 21 2017 *)
PROG
(PARI) A118252(n, show=0, a=1)={my(c=[a], S=[], L); for(k=1, n, show & print1(a", "); while( setsearch(S, binary(a++)), ); c=concat(binary(a), c); S=[]; for(i=0, #c-L=#binary(a), c[i+1] & for(j=i+L, min(i+L+1, #c), S=setunion(S, Set(t=[vecextract(c, 2^j-2^i)]))))); a} \\ M. F. Hasler, Dec 29 2012
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Apr 18 2006
EXTENSIONS
More terms from Graeme McRae, Apr 19 2006
Explicit definition from M. F. Hasler, Dec 29 2012
STATUS
approved