upper-pi ( x -- y )

Vocabulary

math.primes.private

Inputs

x

an object

Outputs

y

an object

Definition

USING: kernel math math.functions ;

IN: math.primes.private

: upper-pi ( x -- y )
    dup log [ / ] [ 1.2762 swap / 1 + ] bi * ceiling ;