# [R], 73 bytes

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

    n=scan();while(1){d=(x=1:T)[!T%%x];if(sum(d)>n)break;T=T+1};cat(T,sum(d))

[Try it online!][TIO-japsle6b]

[R]: https://www.r-project.org/
[TIO-japsle6b]: https://tio.run/##K/r/P8@2ODkxT0PTujwjMydVw1CzOsVWo8LW0CpEM1oxRFW1ItY6M02juDRXI0XTLk8zqSg1Mds6xDZE27DWOjmxRCNEByKn@d/QwOA/AA "R – Try It Online"

Outgolfed by [duckmayr](http://codegolf.stackexchange.com/a/149747/76266).