dim a(5e3) do n=n+1 if a(n)<2for i=1to 50a(n*i)=n next ?a(n)loop