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,new
AUTHOR
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 10 2002
EXTENSIONS
Edited by Dean Hickerson (dean(AT)math.ucdavis.edu), Jun 09 2002
STATUS
approved