In[1]:= AbsoluteTiming[
 nn = NestWhile[# + 1 &, 1,
   DivisorSigma[0, PolygonalNumber[#]] <= 500 &];
 ans = PolygonalNumber[nn]]

Out[1]= {0.0492814, 76576500}