%I #6 Jun 24 2014 01:08:23
%S 11,31,97,271,811,2437,7297,21871,65617,196831,5904901,17714701,
%T 5314411,15943237,47829697,1434890761,4304672117,1291401637,
%U 3874204891,116226146719,348678440113,1046035320347,313810596091,9414317882759
%N Smallest prime larger than 3^n whose digits begin with those of 3^n.
%e a(5) = 2437 with leading digits 243 = 3^5.
%t f[n_] := For[x=10, True, x*=10, For[y=0, y<x, y++, If[PrimeQ[x*n+y], Return[x*n+y]]]]; a[n_] := f[3^n]
%Y Cf. A068842.
%K nonn,base
%O 0,1
%A _Amarnath Murthy_, Mar 10 2002
%E Edited by _Dean Hickerson_, Jun 09 2002