euler134 ( -- answer )

Vocabulary

project-euler.134

Inputs

None

Outputs

answer

an object

Definition

USING: kernel lists lists.lazy math math.primes.lists
project-euler.134.private ;

IN: project-euler.134

: euler134 ( -- answer )
    0 5 lprimes-from uncons [ 1000000 > ] luntil
    [ [ s + ] keep ] leach drop ;