OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Square Number
MATHEMATICA
a[n_] := Block[{k=1}, While[DigitCount[k^2, 10, 4] != n, k++]; k]; Array[a, 7] (* Giovanni Resta, Jul 27 2018 *)
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
More terms from Jon E. Schoenfield, Jan 14 2009
a(17)-a(20) from Giovanni Resta, Jul 27 2018
a(21)-a(25) from Max Alekseyev, Mar 06 2025
STATUS
approved