Mostrar los números primos

Comprobar primos gemelos

Pares de primos gemelos:

C = Corner(1.0)
p = false
L01 = Sequence(Sequence[Text[100.0 + 10.0 * s + t, (t + 0.03, 5.05 - s)], t, 1.0, 10.0], s, 0.0, 9.0)
L21 = Sequence(Sequence[If[(Mod[100.0 + 10.0 * s + t, 2.0] ≠ 0.0) ∧ (Mod[100.0 + 10.0 * s + t, 3.0] ≠ 0.0) ∧ (Mod[100.0 + 10.0 * s + t, 5.0] ≠ 0.0) ∧ (Mod[100.0 + 10.0 * s + t, 7.0] ≠ 0.0) ∧ (Mod[100.0 + 10.0 * s + t, 11.0] ≠ 0.0) ∧ (Mod[100.0 + 10.0 * s + t, 13.0] ≠ 0.0), Circle[(t + 0.3, 5.0 - s + 0.15), 0.3], Text["", (t, 5.0 - s)]], t, 1.0, 10.0], s, 0.0, 9.0)
q = false
primosgemelos: {101.0, 103.0, 107.0, 109.0, 137.0, 139.0, 149.0, 151.0, 179.0, 181.0, 191.0, 193.0, 197.0, 199.0}
texto6 = TableText(Sequence[{Element[primosgemelos, i], Element[primosgemelos, i + 1.0]}, i, 1.0, 14.0, 2.0], "h")

Tool: Tapa primos3 (command Tapaprimos3)
Señala un número
Input: F
Output: s

s = Circle((x(F) + 0.2, y(F) + 0.15), 0.3)

Tool: Tapaprimos
Señala un punto
Input: H
Output: polígono2

polígono2, a_1, b_1, c_1, d_1 = Polygon(H, H + (0.7, 0.0), H + (0.7, 0.3), H + (0.0, 0.3))