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

Author

Hollie L. Buchanan II, Apr 06 2012

Keywords

• nonn
• base

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