This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A182051 #14 Nov 09 2013 22:23:58
%S A182051 2,3,5,7,11,101,113,131,151,181,191,199,211,223,227,229,233,277,311,
%T A182051 313,331,337,353,373,383,433,443,449,499,557,577,599,661,677,727,733,
%U A182051 757,773,787,797,811,877,881,883,887,911,919,929,977,991,997,1117,1151
%N A182051 Primes with a majority of one digit.
%C A182051 a(n+5) = A164937(n) for n <= 89.
%H A182051 Arkadiusz Wesolowski, <a href="/A182051/b182051.txt">Table of n, a(n) for n = 1..10000</a>
%e A182051 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 A182051 lst = {}; Do[i = IntegerDigits[n]; If[PrimeQ[n] && Count[i, First[Commonest@i]] > IntegerLength[n]/2, AppendTo[lst, n]], {n, 10^4}]; lst
%Y A182051 Supersequence of A164937 and of A164968.
%Y A182051 Cf. A004022, A105992.
%K A182051 base,nonn
%O A182051 1,1
%A A182051 _Arkadiusz Wesolowski_, Apr 08 2012