OFFSET
1,2
EXAMPLE
Sequence A167500 starts 1,2,4,7,... = 1,10,100,111,.... when written in binary.
PROG
(PARI) a=b=[]; for(n=1, 30, #b >= n & for( i=a[n-1]+1, #b, b[i] & (a=concat(a, i)) & break); #a<n & a=concat(a, #b+1); b=concat(b, binary( a[n] ))); apply(t->subst(Pol(binary(t)), x, 10), a)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
M. F. Hasler, Nov 05 2009
STATUS
approved