open System

let isHarshad x =
    (decimal x) / (x.ToString() 
    |> Seq.map(string >> Decimal.Parse) |> Seq.sum) % 1m = 0m

// [ 1 .. 100 ] |> List.filter isHarshad