function n=harm2(tak)
k=1;
while harmonisk(k)<tak
  k=k+1;
  end
  
  
