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 #13 Sep 08 2022 08:45:54
%S 100019,100103,100109,100151,100333,100411,100501,100511,100801,
%T 100811,100999,101009,101021,101051,101081,101107,101221,101333,
%U 101501,101701,101771,101999,102001,102101,102121,103001,106661,107077,107101,107171,107717,108011
%N Primes in A182040.
%C Primes whose decimal representation consists of three distinct digits, one appearing once, one appearing twice, and one appearing three times.
%C There are 3640 terms.
%C The subsequence of emirps begins 100411, since 114001 is prime; 100511, since 115001 is prime; 100999, since 999101 is prime; 101333, since 333101 is prime; 101701, since 107101 is prime; 101999, since 999101 is prime.
%H Jason Kimberley, <a href="/A182092/b182092.txt">Table of n, a(n) for n = 1..3640</a> (complete sequence)
%F A000040 INTERSECTION A182040.
%o (Magma) A182092 := func<n|#Set(seq)eq 3 and Set(Multiplicities(SequenceToMultiset(seq)))eq{1,2,3} and IsPrime(n) where seq is IntegerToSequence(n)>;
%o [n:n in[10^5..10^6]|A182092(n)]; // _Jason Kimberley_, Nov 02 2012
%Y Cf. A000040, A182040, A182051 (primes with a majority of one digit).
%K nonn,base,fini,easy,full
%O 1,1
%A _Jonathan Vos Post_, Apr 11 2012