%I A074338
%S A074338 2,3,9,11,13,63,71,93,187,189,201,207,243,347,369,439,473,529,611,847,
%T A074338 1209,1331,1423,1581,1593,1617,1679,1791,2067,2529,2541,2563,2751,3347,
%U A074338 3583,3677,3777,4359,4701,4771,5657,6183,6193,6353,6511,6539,6769,6939
%N A074338 a(1) = 2; a(n) is smallest number > a(n-1) such that the juxtaposition 
               a(1)a(2)...a(n) is a prime.
%t A074338 a[1] = 2; a[n_] := a[n] = Block[{k = a[n - 1] + 1 + Mod[a[n - 1], 2], 
               c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits 
               @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], 
               {n, 48}] (* Robert G. Wilson v *)
%Y A074338 Cf. A033679, A069603, A074336, A074339, A074340, A074341, A074342, A074343, 
               A074344, A074345, A074346.
%Y A074338 Sequence in context: A121557 A138984 A110772 this_sequence A111319 A109658 
               A110350
%Y A074338 Adjacent sequences: A074335 A074336 A074337 this_sequence A074339 A074340 
               A074341
%K A074338 nonn,base
%O A074338 1,1
%A A074338 Zak Seidov (zakseidov(AT)yahoo.com), Sep 23 2002
%E A074338 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 05 2005