あと>>24の式は分かりやすく書いたもので、
Mathematicaでは
1 - Product[(365 - k)/365, {k, 1, 39}] // N
と入力した。
エイリアスを使えば綺麗に表示できるが、ここには貼り付けられない。