R语言等比数列数列求和时的奇偶问题

今天用R语音算国王下棋故事答案的时候，发现最后结果出了一些问题。

这是我写的函数

这是最后的结果

但是让人疑惑的是，为什么这个结果会是偶数。按照等比数列求和的公式，最后得出的结果应该是2^64-1，很明显这应该是个奇数。
然后我又用R语言直接算2^64-1,结果和函数算出来的结果一样，还是偶数。

这就十分奇怪。最后我开始一个个数字尝试，想找到是从那个数字开始出现这种奇怪的现象。最后发现在循环54次时，奇数会变成偶数。

这就很让人疑惑，希望有大佬能够帮我解释一下，这是什么原因？是不是R语音自身编译的问题？还是我的代码有问题？
谢谢！