First[RealDigits[N[Exp[Pi Sqrt[163]], 200]]]
Table[
 c = N[Exp[Pi Sqrt[h]], 40];
 Log10[1 - FractionalPart[c]]
 ,
 {h, {19, 43, 67, 163}}
]