OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
id9[n_]:=Module[{min=Floor[Sqrt[9*10^n]], max=Floor[Sqrt[10*10^n]]}, Select[ Range[ min, max], First[IntegerDigits[#^2]]==9&]]; Flatten[ Table[ id9[n], {n, 0, 5}]] (* Harvey P. Dale, May 29 2013 *)
PROG
(PARI) list(lim)=my(v=List()); for(d=1, 2*#digits(lim\=1), for(n=sqrtint(9*10^(d-1)-1)+1, min(sqrtint(10^d-1), lim), listput(v, n))); Vec(v) \\ Charles R Greathouse IV, Nov 03 2021
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved