|
%I #3 Mar 30 2012 18:49:09
%S 149,298,334,472,667,745,882,1054,1055,1056,1057,1058,1490,1491,1492,
%T 1493,1825,1826,1827,2108,2109,2356,2357,2581,2582,2788,2789,2980,
%U 2981,3161,3162,3332,3333,3334,3335,3336,3337,3338,3339,3340,3341,3342,3343
%N Numbers whose square starts with 3 identical digits.
%e 149^2 = 22201.
%t Select[Range[10, 5000], Length[Union[Take[IntegerDigits[ #^2], 3]]] == 1 &]
%K base,nonn
%O 1,1
%A _Tanya Khovanova_, Aug 28 2007
|
