OFFSET
1,1
COMMENTS
a(20) > 10^14. - Giovanni Resta, Jul 27 2018
LINKS
Eric Weisstein's World of Mathematics, Square Number
MATHEMATICA
a[n_]:=Module[{i}, i=1; While[DigitCount[i^2][[9]]!=n, i++ ]; i]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 23 2006 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
a(13)-a(15) from Jon E. Schoenfield, Jan 24 2009
a(16) from Jon E. Schoenfield, Jan 25 2009
a(17)-a(19) from Giovanni Resta, Jul 27 2018
STATUS
approved