A182051 Primes with a majority of one digit.

2, 3, 5, 7, 11, 101, 113, 131, 151, 181, 191, 199, 211, 223, 227, 229, 233, 277, 311, 313, 331, 337, 353, 373, 383, 433, 443, 449, 499, 557, 577, 599, 661, 677, 727, 733, 757, 773, 787, 797, 811, 877, 881, 883, 887, 911, 919, 929, 977, 991, 997, 1117, 1151

Offset

1,1

Comments

a(n+5) = A164937(n) for n <= 89.

Links

Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000

Example

1151 is prime and the number of ones is greater than the number of all other digits, so this number is in the sequence.

Mathematica

lst = {}; Do[i = IntegerDigits[n]; If[PrimeQ[n] && Count[i, First[Commonest@i]] > IntegerLength[n]/2, AppendTo[lst, n]], {n, 10^4}]; lst

Crossrefs

Supersequence of A164937 and of A164968.

Cf. A004022, A105992.

Sequence in context: A288369 A226732 A083393 * A052480 A234912 A083137

Adjacent sequences: A182048 A182049 A182050 * A182052 A182053 A182054

Keyword

base,nonn

Author

Arkadiusz Wesolowski, Apr 08 2012

Status

approved