let f x = x*x
let last_x = 600

let () =
    try
        while true do
            let sum = ref 0 in
            let d   = read_int () in
            for i   = 1 to last_x / d - 1 do
                let y    = f (i * d) in
                let area = d * y in
                sum := !sum + area
            done ;
            Printf.printf "%d\n" !sum
        done
    with
        End_of_file -> ()