FINDER OF PRIME NUMBERS
by Reinaldo Baretti Machín
www.oocities.org/serienumerica
e-mail:  reibaretti2004@yahoo.com


c finder of prime numbers
      dimension primos (100)
      primos(1)=2.
      kprime=1
      do 10 i=3,200
      do 20 j=1,kprime
      div=float(i)/primos(j)
      res=div-float(int(div))
c      print*,'div , float(int(div)),res=',div , float(int(div)) ,res
      if(res.eq.0.)goto 10
20    continue
      primos(kprime+1)=float(i)
      kprime=kprime+1
10    continue
      do 50 i=1,kprime
      print 100,i, primos(i)
50    continue
100   format(2x,'i,primos=',2x,i3,2x,e11.4)
      stop
      end
      
  i,primos=    1   0.2000E+01
  i,primos=    2   0.3000E+01
  i,primos=    3   0.5000E+01
  i,primos=    4   0.7000E+01
  i,primos=    5   0.1100E+02
  i,primos=    6   0.1300E+02
  i,primos=    7   0.1700E+02
  i,primos=    8   0.1900E+02
  i,primos=    9   0.2300E+02
  i,primos=   10   0.2900E+02
  i,primos=   11   0.3100E+02
  i,primos=   12   0.3700E+02
  i,primos=   13   0.4100E+02
  i,primos=   14   0.4300E+02
  i,primos=   15   0.4700E+02
  i,primos=   16   0.5300E+02
  i,primos=   17   0.5900E+02
  i,primos=   18   0.6100E+02
  i,primos=   19   0.6700E+02
  i,primos=   20   0.7100E+02
  i,primos=   21   0.7300E+02
  i,primos=   22   0.7900E+02
  i,primos=   23   0.8300E+02
  i,primos=   24   0.8900E+02
  i,primos=   25   0.9700E+02
  i,primos=   26   0.1010E+03
  i,primos=   27   0.1030E+03
  i,primos=   28   0.1070E+03
  i,primos=   29   0.1090E+03
  i,primos=   30   0.1130E+03
  i,primos=   31   0.1270E+03
  i,primos=   32   0.1310E+03
  i,primos=   33   0.1370E+03
  i,primos=   34   0.1390E+03
  i,primos=   35   0.1490E+03
  i,primos=   36   0.1510E+03
  i,primos=   37   0.1570E+03
  i,primos=   38   0.1630E+03
  i,primos=   39   0.1670E+03
  i,primos=   40   0.1730E+03
  i,primos=   41   0.1790E+03
  i,primos=   42   0.1810E+03
  i,primos=   43   0.1910E+03
  i,primos=   44   0.1930E+03
  i,primos=   45   0.1970E+03
  i,primos=   46   0.1990E+03