|
%I #3 Mar 30 2012 17:26:21
%S 57735,333334,471405,577350,666667,745356,881917,942809,1054093,
%T 1054094,1054095,1054096,1490712,1490713,1490714,1825741,1825742,
%U 1825743,2108185,2108186,2357022,2357023,2581988,2581989,2788866,2788867
%N Numbers whose square starts with 6 identical digits.
%e 57735^2=3333330225, 333334^2=111111555556.
%t Select[ Range[ 1000, 5000000 ], Length[ Union[ Take[ IntegerDigits[ #^2 ], 6 ] ] ] == 1 & ] (Jonathan Vos Post, Aug 29 2007)
%Y Cf. A119511.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Aug 04 2006
|
