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

Links

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

Example

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

Mathematica

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

Prog

(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

Crossrefs

Sequence in context: A337110 A007961 A212067 * A146327 A344939 A278742

Adjacent sequences: A060808 A060809 A060810 * A060812 A060813 A060814

Keyword

base,nonn

Author

Erich Friedman, Apr 29 2001

Status

approved