import Control.Monad
import Data.List

main = getContents >>= print . kadomatsu . map read . words

kadomatsu (n:as) = length $ do
 i <- [0 .. n-3]
 let seqs = take 3 (drop i as)
 guard (notElem seqs [sort seqs, reverse (sort seqs)] && length (group (sort seqs)) == 3)
 return seqs