
Imports System.Console
Module Module1
    Dim n As Int64
    Dim ans As Int64
    Dim ii, iii As Integer
    Sub Main()
        n = ReadLine()
        Dim f(n) As Integer
        For i = 1 To Math.Round(Math.Pow(n, 1 / 3))
            For ii = i To Math.Round(Math.Pow(n, 1 / 3))
                For iii = ii To Math.Round(Math.Pow(n, 1 / 3))
                    Dim w As Integer = (i + ii + iii) ^ 2 - (i * ii + ii * iii + iii * i)
                    If w >= 1 And w <= n Then
                        If i <> ii And ii <> iii And iii <> i Then
                            f(w) += 6
                        ElseIf i = ii And ii = iii Then
                            f(w) += 1
                        Else
                            f(w) += 3
                        End If
                    End If
                Next
            Next
        Next
        For i = 1 To n
            WriteLine(f(i))
        Next
        ReadLine()
    End Sub
End Module
