#Mathematica, 109 bytes
s={};For[i=2,1<2,i++,If[!ContainsAll[s,Union[t=Subsequences@IntegerDigits[i,2]][[2;;-2]]],s=s~Join~t;Echo@i]]
Continuously output terms of the sequence
Continuously output terms of the sequence
ZaMoC
- 24.9k
- 2
- 30
- 81