login
Primes containing the digits (2,0,0,9) in that order.
1

%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