program AIsing2020C
    implicit none
    integer(8)::N,i,j,k,A(10000),m
    read*,N
    A=0
 
    do i=1,100
        do j=1,100
            do k=1,100
                m=i**2+j**2+k**2+i*j+j*k+k*i
                if(m<=10000)A(m)=A(m)+1
            end do
        end do
    end do
 
    do i=1,N
        print'(i0)',A(i)
    end do
end program AIsing2020C