

A182020


Numbers that are squares and have a majority of one digit.


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



