module _29

let getDistinctTerms =
    let range = [2..100]
    common.crossMap (fun (a:int) b -> bigint.Pow(bigint a,b)) range range
    |> Seq.distinct |> Seq.length