login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A182051 Primes with a majority of one digit. 5

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 26 22:49 EDT 2021. Contains 346300 sequences. (Running on oeis4.)