login
A068841
Smallest prime larger than 3^n whose digits begin with those of 3^n.
1
11, 31, 97, 271, 811, 2437, 7297, 21871, 65617, 196831, 5904901, 17714701, 5314411, 15943237, 47829697, 1434890761, 4304672117, 1291401637, 3874204891, 116226146719, 348678440113, 1046035320347, 313810596091, 9414317882759
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
Cf. A068842.
Sequence in context: A199112 A299782 A027847 * A316982 A192246 A124296
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Mar 10 2002
EXTENSIONS
Edited by Dean Hickerson, Jun 09 2002
STATUS
approved