function antal=harmonisk2(tak)
n=1;
while harmonisk1(n)<tak
  n=n+1000;
  end

antal=n-1000;
while harmonisk1(antal)<tak
  antal=antal+1;
  end
  
