`prime', `lprime'
-----------------

prime(INDEX)

lprime(INDEX)
     :: $BAG?t$rJV$9(B

RETURN
     $B@0?t(B

INDEX
     $B@0?t(B

   * `prime()', `lprime()' $B$$$:$l$b%7%9%F%`$,FbIt$K;}$D(B
     $BAG?tI=$NMWAG$rJV$9(B. `index' $B$O(B 0 $B0J>e$N@0?t$G(B, $BAG?tI=(B
     $B$N%$%s%G%C%/%9$KMQ$$$i$l$k(B. `prime()' $B$O(B 16381 $B$^$G(B
     $B$NAG?t$r>.$5$$=g$K(B 1900 $B8D(B, `lprime()' $B$O(B, 10 $B?J(B 8 $B7e$G:GBg$N(B
     $BAG?t$+$iBg$-$$=g$K(B 999 $B8DJV$9(B. $B$=$l0J30$N%$%s%G%C%/%9$KBP$7$F$O(B 0
     $B$rJV$9(B.

   * $B$h$j0lHLE*$JAG?t@8@.H!?t$H$7$F$O(B, `pari(nextprime,NUMBER)' $B$,$"$k(B.

     [95] prime(0);
     2
     [96] prime(1228);
     9973
     [97] lprime(0);
     99999989
     [98] lprime(999);
     0

$B;2>H(B
     *Note `pari': pari.

