Recent content by GetToTheChopa

  1. G

    Mathematica Can anybody help me, who is good with Mathematica, with writing a sequence.

    I am very new with Mathematica and I need help writing a program that generates a Farey Sequence. Farey[n] := ? The result should appear as follows, for those values of N. Farey[1] = {0/1,1/1} Farey[2] = {0/1,1/2,1/1} Farey[3] = {0/1,1/3,1/2,2/3,1/1} Farey[4] =...
  2. G

    Mathematica Help Need to write a Mathematica function

    I tried this: PythagoreanTrip[p_] /; z>0 := With[ {result = Reduce[((Mod[x^2,p]+Mod[y^2,p]==Mod[z^2,p] && x>y) || Mod[x^2,p]+Mod[z^2,p]==Mod[y^2,p]) && Element[{x,y},Integers] && x>0 && y>0]}, If [result===False, {}, Sort[Map[Sort, {x,y,z} /. {ToRules[result]}]]]] This does not work...