OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..300
MAPLE
f:= proc(n) local q, k, x;
q:= 8*(10^n-1)/9;
for k from 0 do
x:= ceil(sqrt(q*10^k));
if x^2 < (q+1)*10^k then return x^2 fi
od
end proc:
map(f, [$1..20]); # Robert Israel, Jun 26 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 15 1998
EXTENSIONS
More terms from Robert Israel, Jun 26 2018
STATUS
approved