A133183 Numbers whose square starts with 7 identical digits.
745356, 942809, 1490712, 1825742, 3333334, 4714045, 4714046, 5773503, 6666667, 7453560, 8164966, 8819171, 9428090, 10540926, 10540927, 10540928, 10540929, 14907120, 14907121, 14907122, 18257418, 18257419, 18257420, 21081851
Offset: 1
Examples
Example: 745356^2 = 555555566736.
Programs
-
Mathematica
Select[Range[1000, 5000000], Length[Union[Take[IntegerDigits[ #^2], 7]]] == 1 & ]
Extensions
a(8)-a(24) from Donovan Johnson, Sep 05 2008