login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A060811 Numbers whose square has a majority of one digit. 2
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; text; internal format)
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: A061909 A007961 A212067 * A146327 A278742 A250174

Adjacent sequences:  A060808 A060809 A060810 * A060812 A060813 A060814

KEYWORD

base,nonn

AUTHOR

Erich Friedman, Apr 29 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 19 22:14 EDT 2019. Contains 325168 sequences. (Running on oeis4.)