home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol078 / fprime.c < prev    next >
Encoding:
C/C++ Source or Header  |  1984-04-29  |  556 b   |  32 lines
  1. #define MAX 1000
  2.  
  3. main()     /* program to print primes to 1000 */
  4. {
  5.  
  6.      int next, itest, limit;
  7.  
  8.      next = 3;
  9.      printf("Starting...\n2");
  10.      do {
  11.       itest = 2;
  12. /*          limit = sqr(next,5);
  13. */
  14.       limit = next/2;
  15.           while(next % itest != 0) {
  16.                itest++;
  17.                if(itest > limit) {
  18.             printf(" %d",next);
  19.             break;
  20.            }
  21.           }
  22.      next += 2;
  23.      } while (next < MAX);
  24. }
  25.  
  26. sqr(n,k)
  27. int n,k;
  28. {
  29.      if(k==0) return (n/2);
  30.      else return((sqr(n,k-1)+n/sqr(n,k-1))/2);
  31. }
  32.