C This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/nonsqu.for
C
C=======GENERATE THE FIRST N "NON-SQUARE" NUMBERS.
      N=20
      DO 1 C=1.,N
      NS=C+SQRT(C)+.5
1     WRITE(6,*) NS
      STOP
      END