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

Author

Arkadiusz Wesolowski, Apr 08 2012

Keywords

• base
• nonn

Comments

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

Examples

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

Links

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

Crossrefs

Supersequence of A164937 and of A164968.

Cf. A004022, A105992.

Programs

Mathematica

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