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 A243531 #9 Sep 19 2023 12:34:50 %S A243531 151,157,1151,1153,1511,1523,1531,1543,1549,1553,1559,1567,1571,1579, %T A243531 1583,1597,2153,4153,4157,4159,5153,6151,7151,7159,9151,9157,10151, %U A243531 10159,11159,11503,11519,11527,11549,11551,11579,11587,11593,11597,12157,13151,13159 %N A243531 Prime numbers containing the string 15. %H A243531 Vincenzo Librandi, <a href="/A243531/b243531.txt">Table of n, a(n) for n = 1..1000</a> %F A243531 a(n) ~ n log n. - _Charles R Greathouse IV_, Jun 20 2014 %t A243531 Select[Prime[Range[2000]], !StringFreeQ[ToString[#], "15" ] &] %t A243531 Select[Prime[Range[2000]],SequenceCount[IntegerDigits[#],{1,5}]>0&] (* _Harvey P. Dale_, Sep 19 2023 *) %o A243531 (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 A243531 is(n)=isprime(n) && contains(n,15) \\ _Charles R Greathouse IV_, Jun 20 2014 %Y A243531 Cf. similar sequences listed in A243529. %K A243531 nonn,base,less %O A243531 1,1 %A A243531 _Vincenzo Librandi_, Jun 06 2014