PROGRAM F3N1
INTEGER :: Q,Q0
MIN=6
MAX=100
K=1
DO Q0=MIN,MAX
Q=6*Q0+1
I2=4*Q**3-108*K**2*Q**2-108*K**4*Q-27*K**6
RI2=FLOAT(I2)
RI=SQRT(RI2)
I=INT(RI)
II=I**2
IREST=I2-II
H=RI-FLOAT(I)
!PRINT*,Q,I,IREST
PRINT*,H
END DO
END PROGRAM F3N1