%I A030670
%S A030670 23,31,53,71,113,131,173,191,233,293,311,373,419,431,479,5323,593,
%T A030670 613,673,719,733,797,839,8923,971,1013,1031,10711,1091,11311,1277,
%U A030670 1319,1373,1399,1493,1511,1571,1637,16729,1733,17911,1811,1913,1931
%N A030670 Smallest prime whose decimal expansion begins (nontrivially) with the 
               n-th prime.
%C A030670 Add digits to p (starting with a nonzero digit) until reach another prime.
%t A030670 f[n_] := (k = 1; While[a = ToExpression[ ToString[n] <> ToString[k]]; 
               ! PrimeQ[a], k++ ]; a); Table[ f[ Prime[n]], {n, 1, 45} ]
%Y A030670 See A064792 for another version. Note that A064792 <= a(n). Cf. A065112.
%Y A030670 Sequence in context: A054291 A052230 A064792 this_sequence A030680 A006203 
               A153635
%Y A030670 Adjacent sequences: A030667 A030668 A030669 this_sequence A030671 A030672 
               A030673
%K A030670 nonn,base
%O A030670 1,1
%A A030670 Patrick De Geest (pdg(AT)worldofnumbers.com)