OFFSET
1,1
EXAMPLE
a(3)=10403 -> equals 101 * 103.
MATHEMATICA
tdpf[n_]:=Module[{f1=NextPrime[Floor[Sqrt[10^n]]]}, {IntegerLength[f1], f1* NextPrime[f1]}]; Join[{6}, Table[SelectFirst[Array[tdpf, 50], #[[1]]==n&], {n, 2, 20}][[All, 2]]] (* Harvey P. Dale, Apr 06 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
EXTENSIONS
Corrected and extended by Harvey P. Dale, Apr 06 2018
STATUS
approved