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