IF ANYBODY CAN HELP ME ON. THANKS.

Sir David Reiss, I have to thank you very much for your response. It works as required.

<a href="mailto:Catch@Do[If[IntegerQ[14291/i]">Catch@Do[If[IntegerQ[14291/i], Throw[{i, 14291/i}]], {i, 2, 14291}]

But now, as you specified, It would be better to insert a BREAK as soon as the loop encounters a suitable factor and Print the results. But, when I say PRINT, I would like to be able to Print the results from my printer machine too not only Print on the Wolfram screen.

There is something more I would be pleased. I would like to see and print on the screen and on my printing machine the results of all divisions made into the loop keeping a certain number of decimals after the point (maybe 5 decimals when it is the case). As sample, 14291/2 = 7145.5; 14291/3=4763.66666.

CAN YOU HELP ME ON THOSE TWO QUESTIONS?

And, by the way, do you know a reference book when I could find out Wolfram programming language practice exercices of all kink?

Waiting for your reply, Thanks so much for your help, ___________________

You need a right bracket to close the If statement.

Do[If[IntegerQ[107/i], Print[107/i]], {i, 1, 8}]

107

Any can help, Sir, Can you help me on? The input is: Do[If[IntegerQ[121/i], Print[i]],{i,2,11}] The output will be: 11 BUT I would like to get an output such as "No Solution" if I have the following Input Do[If[IntegerQ[121/i], Print[i]],{i,2,7}] I want to print an output : "No Solution" How and where to insert the code? Thanks for your help ____________