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 A161796 #7 Feb 21 2019 23:15:17
%S A161796 101111,111119,111121,111191,111211,111611,112111,113111,131111,
%T A161796 199999,311111,313333,323333,331333,333233,333323,333331,333337,
%U A161796 333383,333433,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.
%K A161796 nonn,base
%O A161796 1,1
%A A161796 _Ki Punches_, Jun 19 2009
%E A161796 Edited and corrected by _R. J. Mathar_, Jun 21 2009