OFFSET
1,1
LINKS
E. Angelini, Cut the sequence after it's odd/even digits, SeqFan List, Oct 29 2013
PROG
(PARI) A230765_vec(n, a=[], s=[], u=0)={my(check(a, s)=my(L=0, j=1); !for(i=1, #s, ( i>L+a[j] || (( i==L+a[j] )== bittest(s[i], 0))) && return; bittest(s[i], 0) && next; L=i; j++)); check(a, s)||return; n-- || return(a); my(t); for(k=1, 9e9, bittest(u, k)&&next; (t=A230765_vec(n, concat(a, k), concat(s, digits(k)), u+2^k))&& return(t))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and M. F. Hasler, Oct 29 2013
STATUS
approved