do i=1 to 500
k=1
j=1
do while j<=k
k=k+j*0**(i//j)
j=j+1
end
if i<k then say i
end