OFFSET
0,1
EXAMPLE
a(5) = 2437 with leading digits 243 = 3^5.
MATHEMATICA
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]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Mar 10 2002
EXTENSIONS
Edited by Dean Hickerson, Jun 09 2002
STATUS
approved