%I A161796
%S A161796 101111,111119,111121,111191,111211,111611,112111,113111,131111,199999,
%T A161796 311111,313333,323333,331333,333233,333323,333331,333337,333383,333433,
%U A161796 333533,334333,343333,353333,444443,444449,511111,555557,599999,611111
%N A161796 Primes with at least one digit appearing exactly five times in the decimal 
               expansion.
%C A161796 The sequence is probably infinite.
%p A161796 isdgctm := proc(n,d) local dgs,a,i ; dgs := convert(n,base,10) ; a := 
               [seq(0,j=0..9)] ;
%p A161796 for i in dgs do a := subsop(i+1=op(i+1,a)+1,a) ; od: if convert(a,set) 
               intersect {d} <> {} then true; else false; fi; end:
%p A161796 for n from 1 to 100000 do p := ithprime(n) ; if isdgctm(p,5) then printf("%d,
               ",p) ; fi; od: # R. J. Mathar, Jun 21 2009
%Y A161796 Cf. A105992, A161786.
%Y A161796 Sequence in context: A107276 A068445 A115828 this_sequence A096929 A023077 
               A077760
%Y A161796 Adjacent sequences: A161793 A161794 A161795 this_sequence A161797 A161798 
               A161799
%K A161796 nonn,base
%O A161796 1,1
%A A161796 Ki Punches (ki1212(AT)pocketmail.com), Jun 19 2009
%E A161796 Edited and corrected by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Jun 21 2009