for n=1,500 do s=1 i=1 while s>0 do i=i+1 s=s-1+i*0^(n%i)end i=i