2 lfactor - smallest prime factor in first specified number of primes
9 m nonnegative integer <= 203280221 (= number of primes < 2^32)
11 return positive integer
14 This function ignores the signs of n and m, so here we shall
15 assume n and limit are both nonnegative.
17 If n is nonzero and abs(n) has a prime proper factor in the first
18 m primes (2, 3, 5, ...), then lfactor(n, m) returns the smallest
19 such factor. Otherwise 1 is returned.
21 If n is nonzero and m = pix(limit), then lfactor(n, m) returns the
22 same as factor(n, limit).
24 Both lfactor(n, 0) and lfactor(1, m) return 1 for all n and m.
25 Also lfactor(0, m) always returns 1, and factor(0, limit) always
26 returns 2 if limit >= 2.
29 ; print lfactor(35,2), lfactor(35,3), lfactor(-35, 3)
32 ; print lfactor(2^32+1,115), lfactor(2^32+1,116), lfactor(2^59-1,1e5)
36 m <= 203280221 (= number of primes < 2^32)
39 NUMBER *qlowfactor(NUMBER *n, NUMBER *count)
40 FULL zlowfactor(ZVALUE z, long count)
43 factor, isprime, nextcand, nextprime, prevcand, prevprime,
46 ## Copyright (C) 1999-2006 Landon Curt Noll
48 ## Calc is open software; you can redistribute it and/or modify it under
49 ## the terms of the version 2.1 of the GNU Lesser General Public License
50 ## as published by the Free Software Foundation.
52 ## Calc is distributed in the hope that it will be useful, but WITHOUT
53 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
54 ## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
55 ## Public License for more details.
57 ## A copy of version 2.1 of the GNU Lesser General Public License is
58 ## distributed with calc under the filename COPYING-LGPL. You should have
59 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
60 ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
62 ## @(#) $Revision: 30.1 $
63 ## @(#) $Id: lfactor,v 30.1 2007/03/16 11:10:42 chongo Exp $
64 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/lfactor,v $
66 ## Under source code control: 1995/12/18 12:34:57
67 ## File existed as early as: 1995
69 ## chongo <was here> /\oo/\ http://www.isthe.com/chongo/
70 ## Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/