program main implicit none integer*8::N,upper,i integer*8,allocatable::base(:),exponents(:) read *,N upper = DINT(log(DBLE(N)))+1_8 allocate(base(upper),exponents(upper)) base = 0 exponents = 0 call factorization(N, base, exponents) contains subroutine factorization(n, base, exponents) integer*8::n,base(:),exponents(:) integer*8::i,j,itr,upper,total_exponents integer*8,allocatable::furui(:) data itr/0/, total_exponents/0/ upper = INT(SQRT(DBLE(n)+1)) allocate(furui(2:upper)) furui = 0 do i=2,upper if(furui(i).ne.0) cycle if(MOD(n, i).ne.0) cycle itr = itr + 1 base(itr) = i do j=i+i,upper,i furui(j) = 1 end do do j=1,upper n = n/i if(MOD(n,i).ne.0) exit end do exponents(itr) = j total_exponents = total_exponents + j if(total_exponents.ge.3) then print '(a)',"YES" return end if if(n.eq.1) return end do itr = itr + 1 base(itr) = n exponents(itr) = 1 print '(a)', "NO" end subroutine factorization end program main