A060811 Numbers whose square has a majority of one digit.
0, 1, 2, 3, 10, 11, 12, 15, 20, 21, 22, 26, 30, 38, 100, 109, 119, 131, 149, 165, 168, 173, 200, 212, 216, 235, 258, 264, 298, 300, 313, 400, 500, 600, 700, 738, 745, 800, 900, 1000, 1001, 1002, 1003, 1010, 1020, 1022, 1030, 1054, 1056, 1059, 1100, 1156, 1200
Offset: 1
Examples
2038^2=4153444 and more than half the digits are 4's.
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[0,1300],Max[DigitCount[#^2,10]]> (IntegerLength[#^2]/2)&] (* Harvey P. Dale, Apr 01 2011 *)
-
PARI
is(n)=my(v=vecsort(eval(Vec(Str(n^2)))), m=v[(#v+1)\2]); sum(i=1,#v,v[i]==m)*2>#v \\ Charles R Greathouse IV, Apr 07 2012