MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Selecting numbers with all odd digits

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22222] Re: [mg22170] Selecting numbers with all odd digits
  • From: "David Park" <djmp at earthlink.net>
  • Date: Fri, 18 Feb 2000 02:35:06 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Hi Tom,

Well, since the text didn't ask for a list of the integers but only the number of
integers we note that there are 3 odd digits in the range 1 to 5, and 5 odd digits in
the range 1 to 9. Then we have to consider 3 digit integers, 2 digit integers and 1
digit integers giving

3*5*5 + 5*5 + 5
105

But then your nice method is very good to check that we haven't gone wrong in our
thinking, like did we remember the 2 digit and 1 digit integers?

I somewhat more efficient method to generate the numbers might be:

Join[Flatten[
      Outer[100#1 + 10#2 + #3 &, Range[1, 5, 2], Range[1, 9, 2],
        Range[1, 9, 2]]],
    Flatten[Outer[10#1 + #2 &, Range[1, 9, 2], Range[1, 9, 2]]],
    Range[1, 9, 2]] // Sort
Length[%]

{1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 31, 33, 35, 37, 39,
  51, 53, 55, 57, 59, 71, 73, 75, 77, 79, 91, 93, 95,
  97, 99, 111, 113, 115, 117, 119, 131, 133, 135, 137,
  139, 151, 153, 155, 157, 159, 171, 173, 175, 177, 179,
  191, 193, 195, 197, 199, 311, 313, 315, 317, 319, 331,
  333, 335, 337, 339, 351, 353, 355, 357, 359, 371, 373,
  375, 377, 379, 391, 393, 395, 397, 399, 511, 513, 515,
  517, 519, 531, 533, 535, 537, 539, 551, 553, 555, 557,
  559, 571, 573, 575, 577, 579, 591, 593, 595, 597, 599}

105

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/


>Hello all,
>
>In one of the math classes I am teaching we are doing some work with
>permutations and combinations.  One question in the text was,  "how many
>positive integers less than 700 have all odd digits?"
>
>I had done the question "by hand" and then wondered how to use Mathematica
>to demonstrate that the solution was the correct one.
>
>I am still very far down on the learning curve in most things, but I managed
>to bludgeon my way to an answer  (thankfully the same as mine!)
>
>Select[
>
>  Range[699],
>
>  Union[ OddQ [ IntegerDigits[#]]] == {True} &
>
>  ]
>
>I am sure my trial and error method can be improved upon.  I am not talking
>speed as much as simply using Mathematica in a way that makes sense and
>would be more logical??
>
>Thanks for any suggestions might have!
>
>Tom De Vries
>Edmonton, Alberta
>Canada
>
>
>



  • Prev by Date: Re: Contour curves & sections onto a surface
  • Next by Date: Re: Function to transform lists
  • Previous by thread: Re: Selecting numbers with all odd digits
  • Next by thread: Re: Selecting numbers with all odd digits