Determining if a number is divisible by 1000












4














I have a number such as:



a = 875952;


And I want to find if it is divisible by 1000.



Is there a concise way of doing that?






functions number-theory







share|improve this question





























    4














    I have a number such as:



    a = 875952;


    And I want to find if it is divisible by 1000.



    Is there a concise way of doing that?






    functions number-theory







    share|improve this question



























      4












      4








      4







      I have a number such as:



      a = 875952;


      And I want to find if it is divisible by 1000.



      Is there a concise way of doing that?






      functions number-theory







      share|improve this question















      I have a number such as:



      a = 875952;


      And I want to find if it is divisible by 1000.



      Is there a concise way of doing that?






      functions number-theory




      functions number-theory






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 56 mins ago









      m_goldberg

      84.2k872195




      84.2k872195










      asked 21 hours ago









      user61054

      534




      534






















          2 Answers
          2






          active

          oldest

          votes


















          11














          You can use Part:



          IntegerDigits[a][[-3 ;;]]



          {9, 5, 2}




          Update:




          "Actually I want to see whether a is divisible by 1000"




          Use Divisible:



          Divisible[a, 1000]



          False







          share|improve this answer































            7














            It depends whether you want a three-digit number, in which case try using Mod, as in:



            Mod[a, 1000]


            If you want a List of the digits, then the other solutions above work fine.



            If your goal is instead to see whether a is (evenly) divisible by 1000, then:



            Mod[a,1000] == 0


            yields a True or False.



            Although I don't think this is quite what the OP requests, in response to @TheGreatDuck, here is (inefficient) code that gets the final three digits from any real number:



            a = 3454.983745; 
            
Take[
            
 NestWhile[
            
 If[Last[#] == 0, Drop[#, -1]] &, RealDigits[a][[1]], 
            
  Last[#] == 0 &], -3]





            share|improve this answer























            • Actually I want to see whether a is divisable by 1000, my ways is to judge the last number of a. But it seems complex. Do you have other ways? thanks.
              – user61054
              21 hours ago






            • 7




              A recommendation: Always ask your actual question, rather than an intermediate question. You're more likely to get better answers.
              – David G. Stork
              21 hours ago










            • @DavidG.Stork but what if by last 3 digits we mean last 3 digits of even decimal fractions such as 13.535 returning 535 or the list {5,3,5} or any other equivalent representation? Right now your formula gives the last three whole number place values along with the decimal fraction. (And yes, I can see the askers usage/intention was something very different but it would be interesting to see a more precise answer to the original question.)
              – The Great Duck
              19 hours ago












            • @TheGreatDuck: The OP is rather confused about what is desired: "Actually I want to see whether $a$ is divisable by 1000." I tried to answer his actual question. If the OP wants something different, I'm happy to address that.
              – David G. Stork
              19 hours ago










            • @DavidG.Stork no the op asked a completely different question in the comments. The desired question is what is posted in the question at the top of this page which asks for how "to get last 3 numbers of a". Your first formula does not do that. Any fraction will not return 3 numbers with that formula.
              – The Great Duck
              19 hours ago











            Your Answer





            StackExchange.ifUsing("editor", function () {
            return StackExchange.using("mathjaxEditing", function () {
            StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
            StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
            });
            });
            }, "mathjax-editing");

            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "387"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f188645%2fdetermining-if-a-number-is-divisible-by-1000%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            2 Answers
            2






            active

            oldest

            votes








            2 Answers
            2






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            11














            You can use Part:



            IntegerDigits[a][[-3 ;;]]



            {9, 5, 2}




            Update:




            "Actually I want to see whether a is divisible by 1000"




            Use Divisible:



            Divisible[a, 1000]



            False







            share|improve this answer




























              11














              You can use Part:



              IntegerDigits[a][[-3 ;;]]



              {9, 5, 2}




              Update:




              "Actually I want to see whether a is divisible by 1000"




              Use Divisible:



              Divisible[a, 1000]



              False







              share|improve this answer


























                11












                11








                11






                You can use Part:



                IntegerDigits[a][[-3 ;;]]



                {9, 5, 2}




                Update:




                "Actually I want to see whether a is divisible by 1000"




                Use Divisible:



                Divisible[a, 1000]



                False







                share|improve this answer














                You can use Part:



                IntegerDigits[a][[-3 ;;]]



                {9, 5, 2}




                Update:




                "Actually I want to see whether a is divisible by 1000"




                Use Divisible:



                Divisible[a, 1000]



                False








                share|improve this answer














                share|improve this answer



                share|improve this answer








                edited 21 hours ago

























                answered 21 hours ago









                kglr

                177k9198405




                177k9198405























                    7














                    It depends whether you want a three-digit number, in which case try using Mod, as in:



                    Mod[a, 1000]


                    If you want a List of the digits, then the other solutions above work fine.



                    If your goal is instead to see whether a is (evenly) divisible by 1000, then:



                    Mod[a,1000] == 0


                    yields a True or False.



                    Although I don't think this is quite what the OP requests, in response to @TheGreatDuck, here is (inefficient) code that gets the final three digits from any real number:



                    a = 3454.983745; 
                    
Take[
                    
 NestWhile[
                    
 If[Last[#] == 0, Drop[#, -1]] &, RealDigits[a][[1]], 
                    
  Last[#] == 0 &], -3]





                    share|improve this answer























                    • Actually I want to see whether a is divisable by 1000, my ways is to judge the last number of a. But it seems complex. Do you have other ways? thanks.
                      – user61054
                      21 hours ago






                    • 7




                      A recommendation: Always ask your actual question, rather than an intermediate question. You're more likely to get better answers.
                      – David G. Stork
                      21 hours ago










                    • @DavidG.Stork but what if by last 3 digits we mean last 3 digits of even decimal fractions such as 13.535 returning 535 or the list {5,3,5} or any other equivalent representation? Right now your formula gives the last three whole number place values along with the decimal fraction. (And yes, I can see the askers usage/intention was something very different but it would be interesting to see a more precise answer to the original question.)
                      – The Great Duck
                      19 hours ago












                    • @TheGreatDuck: The OP is rather confused about what is desired: "Actually I want to see whether $a$ is divisable by 1000." I tried to answer his actual question. If the OP wants something different, I'm happy to address that.
                      – David G. Stork
                      19 hours ago










                    • @DavidG.Stork no the op asked a completely different question in the comments. The desired question is what is posted in the question at the top of this page which asks for how "to get last 3 numbers of a". Your first formula does not do that. Any fraction will not return 3 numbers with that formula.
                      – The Great Duck
                      19 hours ago
















                    7














                    It depends whether you want a three-digit number, in which case try using Mod, as in:



                    Mod[a, 1000]


                    If you want a List of the digits, then the other solutions above work fine.



                    If your goal is instead to see whether a is (evenly) divisible by 1000, then:



                    Mod[a,1000] == 0


                    yields a True or False.



                    Although I don't think this is quite what the OP requests, in response to @TheGreatDuck, here is (inefficient) code that gets the final three digits from any real number:



                    a = 3454.983745; 
                    
Take[
                    
 NestWhile[
                    
 If[Last[#] == 0, Drop[#, -1]] &, RealDigits[a][[1]], 
                    
  Last[#] == 0 &], -3]





                    share|improve this answer























                    • Actually I want to see whether a is divisable by 1000, my ways is to judge the last number of a. But it seems complex. Do you have other ways? thanks.
                      – user61054
                      21 hours ago






                    • 7




                      A recommendation: Always ask your actual question, rather than an intermediate question. You're more likely to get better answers.
                      – David G. Stork
                      21 hours ago










                    • @DavidG.Stork but what if by last 3 digits we mean last 3 digits of even decimal fractions such as 13.535 returning 535 or the list {5,3,5} or any other equivalent representation? Right now your formula gives the last three whole number place values along with the decimal fraction. (And yes, I can see the askers usage/intention was something very different but it would be interesting to see a more precise answer to the original question.)
                      – The Great Duck
                      19 hours ago












                    • @TheGreatDuck: The OP is rather confused about what is desired: "Actually I want to see whether $a$ is divisable by 1000." I tried to answer his actual question. If the OP wants something different, I'm happy to address that.
                      – David G. Stork
                      19 hours ago










                    • @DavidG.Stork no the op asked a completely different question in the comments. The desired question is what is posted in the question at the top of this page which asks for how "to get last 3 numbers of a". Your first formula does not do that. Any fraction will not return 3 numbers with that formula.
                      – The Great Duck
                      19 hours ago














                    7












                    7








                    7






                    It depends whether you want a three-digit number, in which case try using Mod, as in:



                    Mod[a, 1000]


                    If you want a List of the digits, then the other solutions above work fine.



                    If your goal is instead to see whether a is (evenly) divisible by 1000, then:



                    Mod[a,1000] == 0


                    yields a True or False.



                    Although I don't think this is quite what the OP requests, in response to @TheGreatDuck, here is (inefficient) code that gets the final three digits from any real number:



                    a = 3454.983745; 
                    
Take[
                    
 NestWhile[
                    
 If[Last[#] == 0, Drop[#, -1]] &, RealDigits[a][[1]], 
                    
  Last[#] == 0 &], -3]





                    share|improve this answer














                    It depends whether you want a three-digit number, in which case try using Mod, as in:



                    Mod[a, 1000]


                    If you want a List of the digits, then the other solutions above work fine.



                    If your goal is instead to see whether a is (evenly) divisible by 1000, then:



                    Mod[a,1000] == 0


                    yields a True or False.



                    Although I don't think this is quite what the OP requests, in response to @TheGreatDuck, here is (inefficient) code that gets the final three digits from any real number:



                    a = 3454.983745; 
                    
Take[
                    
 NestWhile[
                    
 If[Last[#] == 0, Drop[#, -1]] &, RealDigits[a][[1]], 
                    
  Last[#] == 0 &], -3]






                    share|improve this answer














                    share|improve this answer



                    share|improve this answer








                    edited 18 hours ago

























                    answered 21 hours ago









                    David G. Stork

                    23.2k22051




                    23.2k22051












                    • Actually I want to see whether a is divisable by 1000, my ways is to judge the last number of a. But it seems complex. Do you have other ways? thanks.
                      – user61054
                      21 hours ago






                    • 7




                      A recommendation: Always ask your actual question, rather than an intermediate question. You're more likely to get better answers.
                      – David G. Stork
                      21 hours ago










                    • @DavidG.Stork but what if by last 3 digits we mean last 3 digits of even decimal fractions such as 13.535 returning 535 or the list {5,3,5} or any other equivalent representation? Right now your formula gives the last three whole number place values along with the decimal fraction. (And yes, I can see the askers usage/intention was something very different but it would be interesting to see a more precise answer to the original question.)
                      – The Great Duck
                      19 hours ago












                    • @TheGreatDuck: The OP is rather confused about what is desired: "Actually I want to see whether $a$ is divisable by 1000." I tried to answer his actual question. If the OP wants something different, I'm happy to address that.
                      – David G. Stork
                      19 hours ago










                    • @DavidG.Stork no the op asked a completely different question in the comments. The desired question is what is posted in the question at the top of this page which asks for how "to get last 3 numbers of a". Your first formula does not do that. Any fraction will not return 3 numbers with that formula.
                      – The Great Duck
                      19 hours ago


















                    • Actually I want to see whether a is divisable by 1000, my ways is to judge the last number of a. But it seems complex. Do you have other ways? thanks.
                      – user61054
                      21 hours ago






                    • 7




                      A recommendation: Always ask your actual question, rather than an intermediate question. You're more likely to get better answers.
                      – David G. Stork
                      21 hours ago










                    • @DavidG.Stork but what if by last 3 digits we mean last 3 digits of even decimal fractions such as 13.535 returning 535 or the list {5,3,5} or any other equivalent representation? Right now your formula gives the last three whole number place values along with the decimal fraction. (And yes, I can see the askers usage/intention was something very different but it would be interesting to see a more precise answer to the original question.)
                      – The Great Duck
                      19 hours ago












                    • @TheGreatDuck: The OP is rather confused about what is desired: "Actually I want to see whether $a$ is divisable by 1000." I tried to answer his actual question. If the OP wants something different, I'm happy to address that.
                      – David G. Stork
                      19 hours ago










                    • @DavidG.Stork no the op asked a completely different question in the comments. The desired question is what is posted in the question at the top of this page which asks for how "to get last 3 numbers of a". Your first formula does not do that. Any fraction will not return 3 numbers with that formula.
                      – The Great Duck
                      19 hours ago
















                    Actually I want to see whether a is divisable by 1000, my ways is to judge the last number of a. But it seems complex. Do you have other ways? thanks.
                    – user61054
                    21 hours ago




                    Actually I want to see whether a is divisable by 1000, my ways is to judge the last number of a. But it seems complex. Do you have other ways? thanks.
                    – user61054
                    21 hours ago




                    7




                    7




                    A recommendation: Always ask your actual question, rather than an intermediate question. You're more likely to get better answers.
                    – David G. Stork
                    21 hours ago




                    A recommendation: Always ask your actual question, rather than an intermediate question. You're more likely to get better answers.
                    – David G. Stork
                    21 hours ago












                    @DavidG.Stork but what if by last 3 digits we mean last 3 digits of even decimal fractions such as 13.535 returning 535 or the list {5,3,5} or any other equivalent representation? Right now your formula gives the last three whole number place values along with the decimal fraction. (And yes, I can see the askers usage/intention was something very different but it would be interesting to see a more precise answer to the original question.)
                    – The Great Duck
                    19 hours ago






                    @DavidG.Stork but what if by last 3 digits we mean last 3 digits of even decimal fractions such as 13.535 returning 535 or the list {5,3,5} or any other equivalent representation? Right now your formula gives the last three whole number place values along with the decimal fraction. (And yes, I can see the askers usage/intention was something very different but it would be interesting to see a more precise answer to the original question.)
                    – The Great Duck
                    19 hours ago














                    @TheGreatDuck: The OP is rather confused about what is desired: "Actually I want to see whether $a$ is divisable by 1000." I tried to answer his actual question. If the OP wants something different, I'm happy to address that.
                    – David G. Stork
                    19 hours ago




                    @TheGreatDuck: The OP is rather confused about what is desired: "Actually I want to see whether $a$ is divisable by 1000." I tried to answer his actual question. If the OP wants something different, I'm happy to address that.
                    – David G. Stork
                    19 hours ago












                    @DavidG.Stork no the op asked a completely different question in the comments. The desired question is what is posted in the question at the top of this page which asks for how "to get last 3 numbers of a". Your first formula does not do that. Any fraction will not return 3 numbers with that formula.
                    – The Great Duck
                    19 hours ago




                    @DavidG.Stork no the op asked a completely different question in the comments. The desired question is what is posted in the question at the top of this page which asks for how "to get last 3 numbers of a". Your first formula does not do that. Any fraction will not return 3 numbers with that formula.
                    – The Great Duck
                    19 hours ago


















                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Mathematica Stack Exchange!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid …



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    Use MathJax to format equations. MathJax reference.


                    To learn more, see our tips on writing great answers.





                    Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


                    Please pay close attention to the following guidance:


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid …



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f188645%2fdetermining-if-a-number-is-divisible-by-1000%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    -

                    Popular posts from this blog

                    Eastern Orthodox Church

                    Image
                    Not to be confused with Oriental Orthodoxy, Eastern Christianity, or Eastern Catholic Churches. "Eastern Orthodoxy", "Orthodox Church", "Orthodox Catholic Church", and "Orthodox Christian Church" redirect here. For other uses, see Orthodox (disambiguation). This article may be too long to read and navigate comfortably . The readable prose size is 132 kilobytes. Please consider splitting content into sub-articles, condensing it, or adding or removing subheadings. ( January 2018 ) Part of a series on the Eastern Orthodox Church Mosaic of Christ Pantocrator, Hagia Sophia Overview Structure Theology (History of theology) Liturgy Church history Holy Mysteries View of salvation View of Mary View of icons Background Crucifixion / Resurrection / Ascension of Jesus Christianity Christian Church Apostolic succession Four Marks of the Church Orthodoxy Organization Autocephaly Patriarchate ...
                    Read more

                    Zagreb

                    Image
                    This article is about the Croatian capital city. For other uses, see Zagreb (disambiguation). City in City of Zagreb, Croatia Zagreb City Grad Zagreb City of Zagreb Clockwise, from top: St. Mark's Square, Croatian State Archives, Zagreb Tram, Art Pavilion, Cibona & HOTO towers and Croatian National Theatre. Flag Coat of arms Zagreb Location of Zagreb in Croatia Show map of Croatia Zagreb Zagreb (Europe) Show map of Europe Coordinates: 45°49′N 15°59′E  /  45.817°N 15.983°E  / 45.817; 15.983 Coordinates: 45°49′N 15°59′E  /  45.817°N 15.983°E  / 45.817; 15.983 Country   Croatia County City of Zagreb RC diocese 1094 Free royal city 1242 Unified 1850 Subdivisions 17 city districts 218 local committees (70 settlements) Government  • Type Mayor-Council  • Mayor Milan Bandić (BM 365)  • City Assembly 51 members BM 365, ZL, NS-R (14) SDP, GLAS, HNS, HSS, NH-PS (13) ...
                    Read more

                    Understanding the information contained in the Deep Space Network XML data?

                    Image
                    up vote 1 down vote favorite NASA's Deep Space Network activity can be viewed conveniently at https://eyes.nasa.gov/dsn/dsn.html but if you would like data in a more raw XML form, it can be accessed as described in this answer Below is a small Python script that reads the XML into a list of dictionaries, and saves it to disk as a JSON. The dictionaries are organized at the higher level by dish, then by spacecraft per dish. Question: What are the most-likely meanings of all the data field contained in the Deep Space Network XML data? This is the example url from the other answer, used in the script below: https://eyes.nasa.gov/dsn/data/1365107113.xml def dictify(r,root=True): # https://stackoverflow.com/questions/2148119/how-to-convert-an-xml-string-to-a-dictionary-in-python/30923963#30923963 if root: ret...
                    Read more