A119887 Numbers whose square starts with 6 identical digits.
57735, 333334, 471405, 577350, 666667, 745356, 881917, 942809, 1054093, 1054094, 1054095, 1054096, 1490712, 1490713, 1490714, 1825741, 1825742, 1825743, 2108185, 2108186, 2357022, 2357023, 2581988, 2581989, 2788866, 2788867
Offset: 1
Examples
57735^2=3333330225, 333334^2=111111555556.
Crossrefs
Cf. A119511.
Programs
-
Mathematica
Select[ Range[ 1000, 5000000 ], Length[ Union[ Take[ IntegerDigits[ #^2 ], 6 ] ] ] == 1 & ] (* Jonathan Vos Post, Aug 29 2007 *)