Recent content by Smidgen

  1. S

    Mathematica Mathematica: Help with creating a more efficient algorithm

    Bill Simpson, thanks for the additional codes... glad I could see different ways of arriving at the same percentage.
  2. S

    Mathematica Mathematica: Help with creating a more efficient algorithm

    DaleSpam, thanks for spotting it... I tried your suggestion and I was able to get the correct percentage I was looking for.
  3. S

    Mathematica Mathematica: Help with creating a more efficient algorithm

    I've created a simple algorithm to count primes up to say 1000 which satisfies a certain criterion : count = 0; Do[p = Prime[jj]; If[And[MultiplicativeOrder[2, p] == p - 1, MultiplicativeOrder[3, p] == p - 1], count = count + 1], {jj, 3, 1000}] count Now this algorithm works...