%I A061448
%S A061448 2,23,31,101,103,307,701,1009,9001,10007,70001,100003,300007,700001,
%T A061448 1000003,3000017,7000003,30000001,100000007,700000001,1000000007,
%U A061448 7000000001,10000000019,90000000019,90000000023,300000000077
%N A061448 a(1) = 2; a(n+1) = smallest prime > a(n) with leading digit equal to 
               final digit of a(n).
%H A061448 <a href="Sindx_Fi.html#final">Index entries for sequences related to 
               final digits of numbers</a>
%F A061448 a(n)=A054262(n-1), n>2. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Jan 30 2009]
%e A061448 a(5) = 103, hence a(6) = 307.
%t A061448 a[1]=2; a[n_] := (v=IntegerDigits[a[n-1]]; v1=If[v[[ -1]]>v[[1]], v[[ 
               -1]]*10^(Length[v]-1), If[v[[ -1]]<v[[1]]||Length[v]==1, v[[ -1]]*10^Length[v], 
               a[n-1]]]; For[m=v1+1, !PrimeQ[m], m++ ]; m); Table[a[n], {n, 35}]
%Y A061448 Sequence in context: A049568 A049556 A049580 this_sequence A115233 A007510 
               A117242
%Y A061448 Adjacent sequences: A061445 A061446 A061447 this_sequence A061449 A061450 
               A061451
%K A061448 nonn,base
%O A061448 1,1
%A A061448 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 03 2001
%E A061448 More terms from Larry Reeves (larryr(AT)acm.org), May 17 2001
%E A061448 Terms from a(18) added by Patrick De Geest (pdg(AT)worldofnumbers.com), 
               Jun 04 2001.
%E A061448 Mathematica program from Farideh Firoozbakht (f.firoozbakht(AT)sci.ui.ac.ir), 
               Aug 30 2003