login
Numbers whose square has a majority of one digit.
2

%I #10 Nov 21 2013 12:47:28

%S 0,1,2,3,10,11,12,15,20,21,22,26,30,38,100,109,119,131,149,165,168,

%T 173,200,212,216,235,258,264,298,300,313,400,500,600,700,738,745,800,

%U 900,1000,1001,1002,1003,1010,1020,1022,1030,1054,1056,1059,1100,1156,1200

%N Numbers whose square has a majority of one digit.

%H Charles R Greathouse IV, <a href="/A060811/b060811.txt">Table of n, a(n) for n = 1..10000</a>

%e 2038^2=4153444 and more than half the digits are 4's.

%t Select[Range[0,1300],Max[DigitCount[#^2,10]]> (IntegerLength[#^2]/2)&] (* _Harvey P. Dale_, Apr 01 2011 *)

%o (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

%K base,nonn

%O 1,3

%A _Erich Friedman_, Apr 29 2001