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 A073585 #12 Jul 22 2016 17:24:57
%S A073585 5168,6543,8080,9779,11640,13663,15848,18195,20704,23375,26208,29203,
%T A073585 32360,35679,39160,42803,46608,50575,51731,54704,55906,58995,60243,
%U A073585 63448,64742,68063,69403,72840,74226,77779,79211,81542,82880,84358,86763,88143,89667
%N A073585 Square root of n has the same nonzero digit in each of the first 4 places to the right of the decimal point.
%C A073585 For each term given, the repeated digit is either 8 or 4.
%H A073585 Harvey P. Dale, <a href="/A073585/b073585.txt">Table of n, a(n) for n = 1..630</a>
%e A073585 The square root of 5168 is 71.88880302...
%t A073585 re[n_] := Union[First[RealDigits[Sqrt[n], 10, 4, -1]]]; t = {}; Do[If[Length[x = re[n]] == 1 && x != {0}, AppendTo[t, n]], {n, 90000}]; t (* _Jayanta Basu_, Jul 02 2013 *)
%t A073585 snd4Q[n_]:=Module[{rd=RealDigits[Sqrt[n],10,20],d4},d4=Take[ Drop[ rd[[1]], rd[[2]]], 4];d4[[1]]!=0&&Union[Differences[d4]]=={0}]; Select[ Range[100000],snd4Q] (* _Harvey P. Dale_, Jul 22 2016 *)
%o A073585 (PARI) isA073585(n)=if(issquare(n),0,my(x=sqrt(n));x-=floor(x);x=floor(10000*x);x%1111==0)
%K A073585 nonn,base
%O A073585 1,1
%A A073585 _Paul Lusch_, Aug 28 2002