[seqfan] Re: A046790, A046791 now edited

[David Wilson]

How to generate values of A046790 and A046791:

for (x = 1 to infinity)
{
	If (x even)
		y = 2*A007913(x/2);
	else
		y = A007913(x);
	if (y < x)
		print x, y;
}