A182020 Numbers that are squares and have a majority of one digit.
0, 1, 4, 9, 100, 121, 144, 225, 400, 441, 484, 676, 900, 1444, 10000, 11881, 14161, 17161, 22201, 27225, 28224, 29929, 40000, 44944, 46656, 55225, 66564, 69696, 88804, 90000, 97969, 160000, 250000, 360000, 490000
Offset: 1
Examples
165^2=27225 and more than half its digits are 2.
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Crossrefs
These are the squares of A060811.
Programs
-
Mathematica
Select[Range[0,700]^2,Max[DigitCount[#]]>IntegerLength[#]/2&] (* Harvey P. Dale, Nov 02 2015 *)
-
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