Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #14 Nov 09 2013 22:23:58
%S 2,3,5,7,11,101,113,131,151,181,191,199,211,223,227,229,233,277,311,
%T 313,331,337,353,373,383,433,443,449,499,557,577,599,661,677,727,733,
%U 757,773,787,797,811,877,881,883,887,911,919,929,977,991,997,1117,1151
%N Primes with a majority of one digit.
%C a(n+5) = A164937(n) for n <= 89.
%H Arkadiusz Wesolowski, <a href="/A182051/b182051.txt">Table of n, a(n) for n = 1..10000</a>
%e 1151 is prime and the number of ones is greater than the number of all other digits, so this number is in the sequence.
%t lst = {}; Do[i = IntegerDigits[n]; If[PrimeQ[n] && Count[i, First[Commonest@i]] > IntegerLength[n]/2, AppendTo[lst, n]], {n, 10^4}]; lst
%Y Supersequence of A164937 and of A164968.
%Y Cf. A004022, A105992.
%K base,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Apr 08 2012