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 A182020 #13 Nov 02 2015 16:22:45 %S A182020 0,1,4,9,100,121,144,225,400,441,484,676,900,1444,10000,11881,14161, %T A182020 17161,22201,27225,28224,29929,40000,44944,46656,55225,66564,69696, %U A182020 88804,90000,97969,160000,250000,360000,490000 %N A182020 Numbers that are squares and have a majority of one digit. %H A182020 Charles R Greathouse IV, <a href="/A182020/b182020.txt">Table of n, a(n) for n = 1..10000</a> %e A182020 165^2=27225 and more than half its digits are 2. %t A182020 Select[Range[0,700]^2,Max[DigitCount[#]]>IntegerLength[#]/2&] (* _Harvey P. Dale_, Nov 02 2015 *) %o A182020 (PARI) is(n)=if(issquare(n),my(v=vecsort(eval(Vec(Str(n)))), m=v[(#v+1)\2]); sum(i=1,#v,v[i]==m)*2>#v,0) \\ _Charles R Greathouse IV_, Apr 07 2012 %Y A182020 These are the squares of A060811. %K A182020 nonn,base %O A182020 1,3 %A A182020 _Hollie L. Buchanan II_, Apr 06 2012