OFFSET
1,1
COMMENTS
a(20) > 10^14. - Giovanni Resta, Jul 27 2018
LINKS
Eric Weisstein's World of Mathematics, Square Number
MATHEMATICA
k := 1; For[n = 1, n < 30000, n++, If[DigitCount[n^2][[5]] == k, k++; Print[n]]] (* Stefan Steinerberger, Apr 09 2006 *)
a[n_] := Module[{i = 1}, While[DigitCount[i^2][[6]] != n, i++; ]; i]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 20 2006 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
More terms from Jon E. Schoenfield, Jan 14 2009
One more term from Jon E. Schoenfield, Jan 25 2009
a(17)-a(19) from Giovanni Resta, Jul 27 2018
STATUS
approved