A292453 Numbers where 3 outnumbers any other digit.

3, 33, 133, 233, 303, 313, 323, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 343, 353, 363, 373, 383, 393, 433, 533, 633, 733, 833, 933, 1033, 1233, 1303, 1323, 1330, 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1343, 1353, 1363, 1373, 1383, 1393

Offset

1,1

Links

Table of n, a(n) for n=1..48.

Example

303 has more 3's than any other digit, whereas 3003 has as many 0's as 3's.

Mathematica

Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)
n3oQ[n_]:=Module[{dc=DigitCount[n]}, Max[dc]==dc[[3]]&&Count[dc, dc[[3]]] == 1]; Select[Range[3000], n3oQ] (* Harvey P. Dale, Oct 07 2018 *)

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292454, A292455, A292456, A292457, A292458.

Sequence in context: A048911 A239345 A089015 * A292733 A062215 A279885

Adjacent sequences: A292450 A292451 A292452 * A292454 A292455 A292456

Keyword

nonn,base,easy

Author

Halfdan Skjerning, Sep 16 2017

Extensions

Corrected by Harvey P. Dale, Oct 07 2018

Status

approved