Múltiplos de 2

Múltiplos de 3

Múltiplos de 5

Múltiplos de 7

Múltiplos de 11

Primos

Primos gemelos

Mostrar los divisores

Múltiplos de 13

a = 15 (slider from 2 to 15, step 1)
b = Segment((1.0, -4.0), (a, -(4.0)))
A = Point(b)
B: (0.0, a / x(A) - 4.0)
polígono1, c, d, g, h = Polygon((0.0, -4.0), A, (x(A), y(B)), B)
C = Corner(1.0)
poligono2, e, f, i, j = Polygon((0.0, -4.0), A, (x(A), y(B)), B)
z = 3 (slider from 2 to 4, step 1)
k = false
l = false
m = false
n = false
o = false
p = false
L22 = Sequence(If[t ≟ 2.0 ∨ t ≟ 3.0 ∨ t ≟ 5.0 ∨ t ≟ 7.0, Circle[(t + 0.2, 5.15), 0.3], Text["", (t, 5.0)]], t, 2.0, 10.0)
L31: {(3.2, 5.15), (5.2, 5.15), (7.2, 5.15), (1.2, 4.15), (3.2, 4.15), (7.2, 4.15), (9.2, 4.15), (9.2, 3.15), (1.2, 2.15), (1.2, 1.15), (3.2, 1.15), (9.2, 0.15), (1.2, -0.85), (1.2, -1.85), (3.2, -1.85)}
L32 = Sequence(Circle[Element[L31, t], 0.3], t, 1.0, 15.0)
r = false
D = (4, 4)
E = (13, 5)
F = (2.7600000000000002, 3.46)
texto5: "Número: " + a
s = false
texto4: "" + a + " = " + c + " x " + f
lista1 = Sequence(If[Mod[a, t] ≟ 0.0, Circle[(t - 0.8, 5.15), 0.3], ""], t, 1.0, a)
texto7 = Sequence(Text[If[t < 10.0, " " + (t) + " ", "" + (t)], (t - 1.0, 5.0)], t, 1.0, 15.0)
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)
L02 = Sequence(Sequence[If[Mod[100.0 + 10.0 * s + t, 2.0] ≟ 0.0 ∧ (100.0 + 10.0 * s + t ≠ 2.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)
L03 = Sequence(Sequence[If[Mod[100.0 + 10.0 * s + t, 3.0] ≟ 0.0 ∧ (100.0 + 10.0 * s + t ≠ 3.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)
L05 = Sequence(Sequence[If[Mod[100.0 + 10.0 * s + t, 5.0] ≟ 0.0 ∧ (100.0 + 10.0 * s + t ≠ 5.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)
L07 = Sequence(Sequence[If[Mod[100.0 + 10.0 * s + t, 7.0] ≟ 0.0 ∧ (100.0 + 10.0 * s + t ≠ 7.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)
L11 = Sequence(Sequence[If[Mod[100.0 + 10.0 * s + t, 11.0] ≟ 0.0 ∧ (100.0 + 10.0 * s + t ≠ 11.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)
L13 = Sequence(Sequence[If[Mod[100.0 + 10.0 * s + t, 13.0] ≟ 0.0 ∧ (100.0 + 10.0 * s + t ≠ 11.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)
t = false
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)
I = (13, 2)

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))