%I
%S 37,311,313,317,331,337,347,353,359,367,373,379,383,389,397,3109,3137,
%T 3163,3167,3181,3191,3229,3251,3257,3271,3307,3313,3331,3347,3359,
%U 3373,3389,3433,3449,3457,3461,3463,3467,3491,3499,3541,3547,3557,3571,3593
%N Primes obtained from other primes by preconcatenating with 3.
%C The primes are considered in increasing order. These primes are obtained by adding 30, 300, 3000, ... to other primes.
%H Chris Caldwell, <a href="http://primes.utm.edu/lists/small/10000.txt">The First 10,000 Primes</a>
%e The prime 3389 is obtained from the prime 389 by preconcatenating with 3.
%t Select[(FromDigits[Join[{3},IntegerDigits[#]]]&/@Prime[Range[200]]),PrimeQ] (* _Harvey P. Dale_, Mar 04 2011 *)
%Y Cf. A000040, A165243
%K base,nonn
%O 1,1
%A _Parthasarathy Nambi_, Sep 13 2009
%E 359 inserted by _R. J. Mathar_, Sep 21 2009
