2 of 2 added 78 characters in body

R, 73 bytes

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!

Outgolfed by duckmayr.