# [R], 91 bytes

<!-- language-all: lang-r -->

    function(n,t=table(cut(runif(1e3,30*(n<60)+45*(n<45),75),0:5*15)))write(ifelse(t,t,""),1,1)

[Try it online!][TIO-jlxu79cw]

[R]: https://www.r-project.org/
[TIO-jlxu79cw]: https://tio.run/##JYvRCsIwDEXf/Yw9JTNCy9YJMj9GRwKBEaWm@Pm1dQ/3cA@Xm6uslyrFNteXgZHf/fHcGbbikIupQOSJpjCCrUvA85x6mxPStSXc0hgTIn6zOoMK7x8GJ6dhQIoUsb6zmkPAk3Qc1u5NOw9f/nNj/QE "R – Try It Online"