open System let isHarshad x = (decimal x) / (x.ToString() |> Seq.map(string >> Decimal.Parse) |> Seq.sum) % 1m = 0m // [ 1 .. 100 ] |> List.filter isHarshad