MAKE A MEME View Large Image Eisenstein primes.png Eisenstein primes with norm less than 500 own work with Mathematica 6 0 2007-12-06 Hack Public Domain Eisenstein primes svg Mathematica Program <pre> <nowiki> polyx_ y_ Polygon Table x - y/2 Sqrt3 y/2 i 1 6 + 1/2 1/ 2 ...
View Original:Eisenstein primes.png (1200x1184)
Download: Original    Medium    Small Thumb
Courtesy of:commons.wikimedia.org More Like This
Keywords: Eisenstein primes.png Eisenstein primes with norm less than 500 own work with Mathematica 6 0 2007-12-06 Hack Public Domain Eisenstein primes svg Mathematica Program <pre> <nowiki> polyx_ y_ Polygon Table x - y/2 Sqrt3 y/2 i 1 6 + 1/2 1/ 2 Sqrt3 0 1/Sqrt3 -1/2 1/ 2 Sqrt3 -1/2 -1/ 2 Sqrt3 0 -1/Sqrt3 1/2 -1/ 2 Sqrt3 ; eisenprmx_ y_ Module n p n x 2 - x y + y 2; IfPrimeQn ReturnTrue; p Sqrtn; IfModp 3 2 PrimeQp True False primelist Module l l ; Dob 0; Whilea 2 - a b + b 2 < 500 Ifeisenprma b l Joinl polya b poly-a -b poly-b a - b polyb -a + b poly-a + b -a polya - b a ; b b + 1 a 0 22 ; l; eisen ApplyShow JoinMapGraphics primelist AspectRatio -> Automatic ; Export eisenstein prime png eisen ImageSize -> 600 ImageResolution -> 144; </nowiki> </pre> Prime numbers Round
Terms of Use   Search of the Day