[seqfan] Re: Resurrect A090566?

[David Wilson]

Outlook has an irritating way of correcting my capitalization and formatting.
I'm ostensibly sending this in text format, so hopefully it will be formatted correctly.

x = a(n);
d = number of digits in x;
p = (10^d + 1)*x = x concatenated with x;
q = (floor(sqrt(p)) + 1)^2 = smallest square > p;
if (q < (10^d)(x + 1))
	a(n+1) = q mod (10^d) = last d digits of q;
 else
	p = (10^d)*(10x+1) = x concatenated with 10^d;
	q =  (floor(sqrt(p)) + 1)^2 = smallest square > p;
	a(n+1) = q mod (10^(d+1)) = last d+1 digits of q;