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 = 1}, While[DigitCount[i^2][[7]] != n, i++ ]; i]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 22 2006 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
a(13)-a(16) from Jon E. Schoenfield, Jan 24 2009
a(17)-a(19) from Giovanni Resta, Jul 27 2018
STATUS
approved