Отлично. Эта задача есть в project Euler?

Edited at 2014-07-31 04:43 pm (UTC)
Ах, CDC 6000, американская БЭСМ-6... И проработала примерно столько же :-)