OFFSET
1,1
EXAMPLE
8083_8081 = 8991^2.
MATHEMATICA
Select[Table[Sqrt[k*10^IntegerLength[k]+k-2], {k, 4, 86*10^5}], IntegerQ] (* The program generates the first 9 terms of the sequence. *) (* Harvey P. Dale, Nov 02 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jan 24 2006
STATUS
approved