      PROGRAM piyo
      IMPLICIT NONE
      INTEGER,PARAMETER :: p = 8
      integer(p) :: x,y,z ,n, ans, temp, table(1:10**4)=0,i
      
      read*,n
      
      do x = 1,100
      do y = 1,100
      do z = 1,100
        temp = x**2 + y**2 + z**2 + x*y + y*z + z*x
        if( temp>10**4) cycle
        table(temp) = table(temp) + 1
      end do
      end do
      end do
      
      do i = 1,n
        print'(i0)', table(i)
      end do
      
      
      stop
      !debugg
      
      
      
      END PROGRAM