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