(generator) ( k -- n )

Vocabulary

project-euler.186

Inputs

k

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: project-euler.186

: (generator) ( k -- n )
    dup sq 300007 * 200003 - * 100003 + 1000000 rem ;