7 lines
140 B
Text
7 lines
140 B
Text
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}}
|
|
]
|