R中的伯努利数

Question

我是R语言的新手，我不使用任何循环就找不到计算伯努利数的函数。如果有人解释一下计算思路，我将不胜感激。