%I #14 Nov 21 2013 12:50:09
%S 137,1373,2137,3137,9137,13709,13711,13721,13723,13729,13751,13757,
%T 13759,13763,13781,13789,13799,15137,17137,21377,21379,24137,29137,
%U 30137,31379,36137,45137,47137,51137,61379,62137,66137,77137,78137,81371,81373,83137,84137,86137,89137,91373
%N Prime numbers containing the digit string 137.
%H Pierre CAMI, <a href="/A190307/b190307.txt">Table of n, a(n) for n = 1..13006</a>
%F a(n) ~ n log n. [_Charles R Greathouse IV_, Dec 28 2011]
%t s137Q[n_]:=MemberQ[Partition[IntegerDigits[n],3,1],{1,3,7}]; Select[ Prime[ Range[9000]],s137Q] (* _Harvey P. Dale_, May 24 2011 *)
%K nonn,base,less
%O 1,1
%A _Pierre CAMI_, May 08 2011
|