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,3

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Example

165^2=27225 and more than half its digits are 2.

Mathematica

Select[Range[0, 700]^2, Max[DigitCount[#]]>IntegerLength[#]/2&] (* Harvey P. Dale, Nov 02 2015 *)

Prog

(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

Crossrefs

These are the squares of A060811.

Sequence in context: A061457 A069707 A129967 * A087553 A061850 A061459

Adjacent sequences: A182017 A182018 A182019 * A182021 A182022 A182023

Keyword

nonn,base

Author

Hollie L. Buchanan II, Apr 06 2012

Status

approved