%I #9 Jul 30 2018 03:20:53
%S 1,2,3,38,212,2538,6888,66592,100001,100002,100003,200001,200002,
%T 210771,300001,1000001,1000002,1000003,1000004,1000005,1055041,
%U 2000001,2000002,2000003,2000005,2059962,2131888,2356384,3000001,3000002
%N Numbers whose square contains the same digit more than 2/3 of the time and does not end in 0.
%H Giovanni Resta, <a href="/A039820/b039820.txt">Table of n, a(n) for n = 1..6500</a>
%e 3082207^2 = 9499999990849.
%t Select[Range[300000], Mod[#, 10] > 0 && Max@ DigitCount[#^2] > (2/3) IntegerLength[#^2] &] (* _Giovanni Resta_, Jul 29 2018 *)
%K base,hard,nonn
%O 1,2
%A _Erich Friedman_, Apr 29 2001
|