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

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"}]
```

## File history

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

Date/TimeThumbnailDimensionsUserComment
current22: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: