OFFSET
0,2
COMMENTS
See the variant A118250 for comments and examples.
PROG
(PARI) A190896(n, show=0, a=1)={my(c=[0], S=[], L); for(k=1, n, show && print1(a", "); while( setsearch(S, binary(a++)), ); c=concat(c, binary(a)); 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}
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
M. F. Hasler, Dec 29 2012
STATUS
approved