Function: math-next-small-prime

math-next-small-prime is a byte-compiled function defined in calc-comb.el.gz.

Signature

(math-next-small-prime N)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-comb.el.gz
(defun math-next-small-prime (n)
  (if (and (integerp n) (> n 2))
      (let ((lo -1)
	    (hi (length math-primes-table))
	    mid)
	(while (> (- hi lo) 1)
	  (if (> n (aref math-primes-table
			 (setq mid (ash (+ lo hi) -1))))
	      (setq lo mid)
	    (setq hi mid)))
	(aref math-primes-table hi))
    2))