program main
  integer, parameter :: n = 1000000
  integer :: k
  integer,dimension(n) :: value
  
!$omp parallel do
  do k=1, n, +1
    value(k) = k**k
  enddo
!$omp end parallel do

  write (*,*) (value(k), k=1, n)
end program