|
| |
|
|
A060811
|
|
Numbers whose square has a majority of one digit.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
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)&] (* From Harvey P. Dale, Apr 01 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A069967 A061909 A007961 * A146327 A081706 A032804
Adjacent sequences: A060808 A060809 A060810 * A060812 A060813 A060814
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Erich Friedman (efriedma(AT)stetson.edu), Apr 29 2001
|
| |
|
|
