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 A243532 #6 Jun 20 2014 09:23:01 %S A243532 163,167,1163,1601,1607,1609,1613,1619,1621,1627,1637,1657,1663,1667, %T A243532 1669,1693,1697,1699,2161,3163,3167,3169,5167,6163,8161,8167,9161, %U A243532 10163,10169,11161,11617,11621,11633 %N A243532 Prime numbers containing the string 16. %H A243532 Vincenzo Librandi, <a href="/A243532/b243532.txt">Table of n, a(n) for n = 1..1000</a> %F A243532 a(n) ~ n log n. - _Charles R Greathouse IV_, Jun 20 2014 %t A243532 Select[Prime[Range[2000]], !StringFreeQ[ToString[#], "16" ]&] %o A243532 (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 A243532 is(n)=isprime(n) && contains(n,16) \\ _Charles R Greathouse IV_, Jun 20 2014 %Y A243532 Cf. similar sequences listed in A243529. %K A243532 nonn,base %O A243532 1,1 %A A243532 _Vincenzo Librandi_, Jun 06 2014