%I #12 Sep 27 2013 08:55:38
%S 32009,52009,82009,92009,120091,120097,172009,182009,200903,200909,
%T 200927,200929,200971,200983,200987,200989,242009,272009,302009,
%U 322009,332009,420097,442009,452009,512009,532009,620099,622009,682009,692009,720091,742009,752009
%N Primes containing the digits (2,0,0,9) in that order.
%D Roozbeh Hazrat, Mathematica: A Problem-Centered Approach, Springer 2010, pp. 104-105
%H Vincenzo Librandi, <a href="/A197114/b197114.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[100000]],MemberQ[Partition[IntegerDigits[#],4,1],{2,0,0,9}]&]
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 10 2011