marked-prime? ( i sieve -- prime? )

Vocabulary

math.primes.erato.fast

Inputs

i	an object
sieve	an object

Outputs

prime?

an object

Definition

USING: kernel math sequences ;

IN: math.primes.erato.fast

:: marked-prime? ( i sieve -- prime? )
    i dup even? [ 2 = ] [ 2/ sieve nth not ] if ;