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 A243527 #10 Jun 20 2014 09:22:59 %S A243527 1117,2111,4111,8111,10111,11113,11117,11119,11131,11149,11159,11161, %T A243527 11171,11173,11177,11197,16111,22111,25111,26111,28111,35111,40111, %U A243527 41113,41117,44111,47111,50111,58111,65111,68111,70111,71119,79111,80111 %N A243527 Prime numbers containing the string 111. %H A243527 Vincenzo Librandi, <a href="/A243527/b243527.txt">Table of n, a(n) for n = 1..1000</a> %F A243527 a(n) ~ n log n. - _Charles R Greathouse IV_, Jun 20 2014 %t A243527 Select[Prime[Range[90000]], !StringFreeQ[ToString[#], "111"]&] %o A243527 (PARI) contains(n,k)=my(N=digits(n),K=digits(k)); for(i=0,#N-#K, for(j=1,#K,if(N[i+j]!=K[j],next(2))); return(1)); 0 %o A243527 is(n)=isprime(n) && contains(n,111) \\ _Charles R Greathouse IV_, Jun 20 2014 %Y A243527 Cf. prime numbers containing the string kkk: this sequence (k=1), A166580 (k=2), A166581 (k=3), A166582 (k=4), A167281 (k=5), A131645 (k=6), A167282 (k=7), A167290 (k=8), A167292 (k=9). %K A243527 nonn,base,easy %O A243527 1,1 %A A243527 _Vincenzo Librandi_, Jun 06 2014