(consecutive-primes) ( b a n -- m )

Vocabulary

project-euler.027.private

Inputs

b	an object
a	an object
n	an object

Outputs

m

an object

Definition

USING: kernel math math.primes ;

IN: project-euler.027.private

: (consecutive-primes) ( b a n -- m )
    3dup quadratic prime?
    [ 1 + (consecutive-primes) ] [ 2nip ] if ;