next-odd-composite ( n -- m )

Vocabulary

project-euler.046.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: kernel math math.primes ;

IN: project-euler.046.private

: next-odd-composite ( n -- m )
    dup odd? [ 2 + ] [ 1 + ] if dup prime?
    [ next-odd-composite ] when ;