File:Prime numbers in arithmetic progression mod 9 zoom in.png

From Infogalactic: the planetary knowledge core
Jump to: navigation, search
Original file(815 × 385 pixels, file size: 4 KB, MIME type: image/png)

Summary

prime numbers in arithmetic progression mod 9

Mathematica source code

Show[Graphics

   [
   {Table[{RGBColor[1, 0, 0],
    Rectangle[{IntegerPart[Prime[n]/r], Mod[Prime[n] - 1,
          r]}, {IntegerPart[
           Prime[n]/r] + 1, Mod[Prime[n] - 1, r] + 1}]}, {n, 1, 9}],
     Table[{Text[n, {IntegerPart[(n - 
           1)/r] + .5, Mod[n - 1, r] + .5}]}, {n, 1, 27}]
     }], AspectRatio -> Automatic, TextStyle -> {FontFamily -> "Arial
       ", FontSize -> 14, FontStyle -> "Bold"}]

Licensing

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current22:12, 13 January 2017Thumbnail for version as of 22:12, 13 January 2017815 × 385 (4 KB)127.0.0.1 (talk)prime numbers in arithmetic progression mod 9 <p>Mathematica source code </p> Show[Graphics [ {Table[{RGBColor[1, 0, 0], Rectangle[{IntegerPart[Prime[n]/r], Mod[Prime[n] - 1, r]}, {IntegerPart[ Prime[n]/r] + 1, Mod[Prime[n] - 1, r] + 1}]}, {n, 1, 9}], Table[{Text[n, {IntegerPart[(n - 1)/r] + .5, Mod[n - 1, r] + .5}]}, {n, 1, 27}] }], AspectRatio -> Automatic, TextStyle -> {FontFamily -> "Arial ", FontSize -> 14, FontStyle -> "Bold"}]
  • You cannot overwrite this file.

The following page links to this file: