\\ positive numbers appearing as substrings in binary expansion of n
substrings(n) = {
	my (b=binary(n), s=[0], nb=0);
	for (i=1, #b,
		if (b[i],
			for (j=i, #b,
				if (#s<nb++, s=concat(s,vector(#s)));
				s[nb]=fromdigits(b[i..j],2);
			);
		);
	);
	Set(s);
}

{
	p = 0;	\\ sum of previous terms
	for (n=1, 2^14,
		if (n==1,
			v=1,
			nn=substrings(n-1);
			pp=substrings(p);
			ii=setintersect(nn,pp);
			v=ii[#ii];
		);

		p += v;

		print (n " " v);
	);
}

quit