OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..6500
EXAMPLE
3082207^2 = 9499999990849.
MATHEMATICA
Select[Range[300000], Mod[#, 10] > 0 && Max@ DigitCount[#^2] > (2/3) IntegerLength[#^2] &] (* Giovanni Resta, Jul 29 2018 *)
CROSSREFS
KEYWORD
base,hard,nonn
AUTHOR
Erich Friedman, Apr 29 2001
STATUS
approved