open System

​

//https://stackoverflow.com/questions/62435179/how-to-copy-elements-in-array-different-number-of-times

​

let repeatedSeq (s, itemCount) = 

    seq { for item in s do for i in 1..itemCount(item) -> item }

​

let list = [5; 10; 15]

​

let repeatedList = repeatedSeq(list, fun i -> i/5) |> Seq.toList

​

printfn "%A" repeatedList

​