This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A133183 #5 Mar 30 2012 18:40:43 %S A133183 745356,942809,1490712,1825742,3333334,4714045,4714046,5773503, %T A133183 6666667,7453560,8164966,8819171,9428090,10540926,10540927,10540928, %U A133183 10540929,14907120,14907121,14907122,18257418,18257419,18257420,21081851 %N A133183 Numbers whose square starts with 7 identical digits. %e A133183 Example: 745356^2 = 555555566736. %t A133183 Select[Range[1000, 5000000], Length[Union[Take[IntegerDigits[ #^2], 7]]] == 1 & ] %K A133183 nonn,base %O A133183 1,1 %A A133183 _Jonathan Vos Post_, Aug 30 2007 %E A133183 a(8)-a(24) from _Donovan Johnson_, Sep 05 2008