\\ A345290
b(n) = { my (v=0, e); while (n, n-=2^e=valuation(n, 2); v+=fibonacci(-2-e)); v }

a = vector(fibonacci(20), n, -1)
u = 0

{
	for (n=0, oo,
		v=-b(n);
		if (v>=0 && v<#a && a[1+v]<0,
			a[1+v] = n;
			while (a[1+u]>=0,
				print (u " " a[1+u]);
				if (u++==#a,
					break (2);
				);
			);
		);
	);
}

quit