Scanf.scanf "%d" (fun k ->
    let mat = Array.make_matrix 201 201 (-1) in
    let rec gcd a b = if b = 0 then a else
        if mat.(a).(b) >= 0 then mat.(a).(b) else
            let r = gcd b (a mod b) in
            let () = mat.(a).(b) <- r in
            r
    in

    let rec loop_a a acc =
        let rec loop_b b acc =
            let rec loop_c ab c acc =
                if c > k then acc else loop_c ab (c + 1) (acc + gcd ab c)
            in
            if b > k then acc else loop_b (b + 1) (loop_c (gcd a b) 1 acc)
        in
        if a > k then acc else loop_a (a + 1) (loop_b 1 acc)
    in
    loop_a 1 0 |> Printf.printf "%d\n"
)