OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..499
MAPLE
f:= proc(n) local d, q, x;
for d from n do
q:= 10^d-10^(d-n);
x:= isqrt(q);
if x^2 < q then x:= x+1 fi;
if x^2 < 10^d then return x^2 fi
od
end proc:
map(f, [$1..20]); # Robert Israel, Sep 28 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 15 1998
EXTENSIONS
More terms from Hans Havermann, Jun 18 2001
STATUS
approved