login
Smallest prime larger than 3^n whose digits begin with those of 3^n.
1

%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