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

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

Links

Table of n, a(n) for n=0..23.

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

Adjacent sequences: A068838 A068839 A068840 * A068842 A068843 A068844

Keyword

nonn,base

Author

Amarnath Murthy, Mar 10 2002

Extensions

Edited by Dean Hickerson, Jun 09 2002

Status

approved