計算が終わらない！？

久しぶりのprojecteulerなんだけど、P87で詰まってるっぽい。
リストとループを使って処理させているんだけど、やたらと時間がかかる。
例題はクリアできているので、方針に間違いはないんだろうけど。

10分くらい経つけど終わる気配がない。
相当実装がヘボいのか？

Rを使って400msという結果もあるのに。
Problem 87 - もうカツ丼はいいよな