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

A057889(n) = {
	if (n,
			my (e=valuation(n, 2));
			2^e * fromdigits(Vecrev(binary(n/2^e)),2),
			0
	);
}

isA003714(n) = bitand(n, n\2)==0

m=-1; for (n=0, 2^19, if (isA003714(n), print (m++ " " A022290(A057889(n)))))

quit