%I A114009
%S A114009 2,3,31,5,53,59,7,71,73,79,11,113,1103,1109,1117,13,131,137,139,1301,
%T A114009 1303,17,173,179,1709,1721,1723,1733,19,191,193,197,199,1901,1907,1913,
%U A114009 23,233,239,2309,2311,2333,2339,2341,2347,29,293,2903,2909,2917,2927
%N A114009 n primes beginning with prime(n).
%e A114009 One prime beginning with 2, followed by the two primes 3, 31 beginning 
               with 3.
%t A114009 f[n_] := Block[{c = 0, t = {}, p = Prime[n]}, k = PrimePi[p]; lng = Ceiling[Log[10, 
               p]]; While[c < n, q = Prime[k]; If[p == FromDigits@Take[IntegerDigits@q, 
               lng], c++; AppendTo[t, q]]; k++ ]; t]; Array[f, 10] // Flatten (* 
               Robert G. Wilson v *)
%Y A114009 Sequence in context: A048986 A093712 A035514 this_sequence A143665 A074479 
               A136150
%Y A114009 Adjacent sequences: A114006 A114007 A114008 this_sequence A114010 A114011 
               A114012
%K A114009 base,nonn
%O A114009 1,1
%A A114009 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 12 2005
%E A114009 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Nov 17 2005