This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A074338 #8 Oct 31 2013 12:17:21
%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,
%U A074338 3347,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.
%K A074338 nonn,base
%O A074338 1,1
%A A074338 _Zak Seidov_, Sep 23 2002
%E A074338 More terms from _Robert G. Wilson v_, Aug 05 2005