Scanf.scanf "%d" (fun n ->
    let n3 = 3 * n in
    let a = Array.init n3 (fun _ -> Scanf.scanf " %d" (fun a -> a - 1)) in
    let m = 100000 in
    let make_key a b = if a < b then a * m + b else b * m + a in
    let module M = Map.Make (struct type t = int let compare = compare end) in

    let add a b c d e v newmap =
        let key = make_key a b in
        let v = if c = d && d = e then v + 1 else v in
        M.add key (max v (try M.find key newmap with _ -> 0)) newmap
    in

    let rec loop i map =
        if i = n3 - 1 then map else
            let k3 = a.(i) in
            let k4 = a.(i + 1) in
            let k5 = a.(i + 2) in
            let newmap = M.fold (fun key v newmap ->
                let k1 = key / m in
                let k2 = key mod m in
                let newmap = add k1 k2 k3 k4 k5 v newmap in
                let newmap = add k1 k3 k2 k4 k5 v newmap in
                let newmap = add k1 k4 k2 k3 k5 v newmap in
                let newmap = add k1 k5 k2 k3 k4 v newmap in
                let newmap = add k2 k3 k1 k4 k5 v newmap in
                let newmap = add k2 k4 k1 k3 k5 v newmap in
                let newmap = add k2 k5 k1 k3 k4 v newmap in
                let newmap = add k3 k4 k1 k2 k5 v newmap in
                let newmap = add k3 k5 k1 k2 k4 v newmap in
                let newmap = add k4 k5 k1 k2 k5 v newmap in
                newmap
            ) map M.empty in
            loop (i + 3) newmap
    in
    let map = loop 2 (M.singleton (make_key a.(0) a.(1)) 0) in
    M.fold (fun key v acc ->
        let k1 = key / m in
        let k2 = key mod m in
        let v = if k1 = k2 && k2 = a.(n3 - 1) then v + 1 else v in
        max acc v
    ) map 0 |> Printf.printf "%d\n"
)