login
A182051
Primes with a majority of one digit.
5
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.
Sequence in context: A288369 A226732 A083393 * A052480 A234912 A083137
KEYWORD
base,nonn
AUTHOR
STATUS
approved