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
KEYWORD
base,nonn
AUTHOR
Arkadiusz Wesolowski, Apr 08 2012
STATUS
approved