IF ANYBODY CAN HELP ME ON. THANKS.
Sir David Reiss, I have to thank you very much for your response. It works as required.
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,
___________________
