%I #5 Mar 30 2012 18:40:43
%S 745356,942809,1490712,1825742,3333334,4714045,4714046,5773503,
%T 6666667,7453560,8164966,8819171,9428090,10540926,10540927,10540928,
%U 10540929,14907120,14907121,14907122,18257418,18257419,18257420,21081851
%N Numbers whose square starts with 7 identical digits.
%e Example: 745356^2 = 555555566736.
%t Select[Range[1000, 5000000], Length[Union[Take[IntegerDigits[ #^2], 7]]] == 1 & ]
%K nonn,base
%O 1,1
%A _Jonathan Vos Post_, Aug 30 2007
%E a(8)-a(24) from _Donovan Johnson_, Sep 05 2008
|