読者です 読者をやめる 読者になる 読者になる

PEをMathematicaで

Project Eulerに挑戦してみよう

Project Euler 37 / 切り詰め可能素数

3797は面白い性質を持っている。まずそれ自身が素数であり,左から右に桁を除いたときにすべて素数になっている (3797, 797, 97, 7)。同様に右から左に桁を除いたときもすべて素数である (3797, 379, 37, 3)。

右から切り詰めても左から切り詰めても素数になる素数は11個しかない。その総和を求めよ。

注: 2, 3, 5, 7を切り詰め可能な素数とは考えない。

Problem 37 - Project Euler


切り詰めた後の数はもとの数 n を 10^k で割ったときの商と余りです。
Quotient[n,10^k], Mod[n,10^k] で処理できます。
k の範囲は n の桁数 IntegerLength[n] を使って求めました。