program abc163c
   implicit none
   integer :: N, i, j, count
   integer, allocatable :: A(:), numOfBuka(:), one(:)


   read(*,*) N
   allocate(A(N), numOfBuka(N), one(N))
   read(*,*) A(2:N)

   one(:) = 1

   do i = 1, N
      numOfBuka(i) = sum(A, MASK=(A==i)) / i
   end do

   do i = 1, N
      print *, numOfBuka(i)
   end do


end program abc163c
