本圖片是以PNG、GIF或JPEG格式上傳。然而，其中包含的資料或訊息，應該重新建立成可縮放向量圖形（SVG）檔案，以更有效率或更準確的方式儲存。如有可能，請上傳本圖片的SVG格式版本。在上傳之後，請修改維基各姊妹計畫中所有使用舊版圖片的條目（列在圖像連結章節中），替換為新版圖片，並在舊圖片的描述頁中加入{{Vector version available|新圖片名稱.svg}}模板，同時移除本模板。

摘要

授權條款

我，此作品的版權所有人，釋出此作品至公共領域。此授權條款在全世界均適用。 這可能在某些國家不合法，如果是的話： 我授予任何人有權利使用此作品於任何用途，除受法律約束外，不受任何限制。

Mathematica Program

poly[x_, y_] := 
    Polygon[{{x + 1/2, y + 1/2}, {x - 1/2, y + 1/2},
             {x - 1/2, y - 1/2}, {x + 1/2, y - 1/2}}];

primelist = 
    Module[{l, b}, l = {}; 
      Do[b = 0; 
        While[a^2 + b^2 < 500, If[PrimeQ[a + b I, GaussianIntegers -> True],
            l = Join[l, {poly[a, b], poly[a, -b], poly[-a, b], poly[-a, -b]}]]; 
          b = b + 1], {a, 0, 22}]; l];

gauss = Apply[Show, Join[Map[Graphics, primelist], {AspectRatio -> Automatic}]];

Export["gaussian prime.png", gauss, ImageSize -> 1200];