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

1 a 100

101 a 200

a = 15 (slider from 2 to 15, step 1)
b = Segment((1, -4), (a, -4))
A = Point(b)
B: (0, a / x(A) - 4)
polígono1, c, d, g, h = Polygon((0, -4), A, (x(A), y(B)), B)
C = Corner(1)
poligono2, e, f, i, j = Polygon((0, -4), 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
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, 15)
r = false
D = (4, 4)
E = (13, 5)
F = (2.7600000000000002, 3.46)
texto5: "Número: " + a
s = false
texto4: "" + a + " = " + c + " x " + f
texto7 = Sequence(Text[If[t < 10, " " + (t) + " ", "" + (t)], (t - 1, 5)], t, 1, 15)
t = false
I = (13, 2)
nume = 1
L311: {(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)}
L321 = Sequence(Circle[Element[L311, t], 0.3], t, 1, 15)
texto71 = Sequence(Text[If[t < 10, " " + (t) + " ", "" + (t)], (t - 1, 5)], t, 1, 15)
L011 = Sequence(Sequence[If[s ≟ 0 ∧ t < 10, Text[" " + (t) + " ", (t + 0.05 - 2, 5.05 - s)], If[s ≟ 9 ∧ t ≟ 10, Text["100", (t - 0.06 - 2, 5.05 - s)], Text[(10 * s) + t, (t + 0.03 - 2, 5.05 - s)]]], t, 1, 10], s, 0, 9)
L01 = Sequence(Sequence[Text[100 + (10 * s) + t, (t + 0.03 - 2, 5.05 - s)], t, 1, 10], s, 0, 9)
p0, f_1, g_1, h_1 = Polygon((-20, 0), (-20, 0), (-20, 0))
q = Circle((-0.82, 4.15), 0.3)
L02 = Sequence(Sequence[If[Mod[100 + (10 * s) + t, 2] ≟ 0 ∧ 100 + (10 * s) + t ≠ 2, Polygon[(t - 2.05, 5 - s), (t + 0.6 - 2, 5 - s), (t + 0.6 - 2, 5.3 - s), (t - 2.05, 5.3 - s)], p0], t, 1, 10], s, 0, 9)
L03 = Sequence(Sequence[If[Mod[100 + (10 * s) + t, 3] ≟ 0 ∧ 100 + (10 * s) + t ≠ 3, Polygon[(t - 2.05, 5 - s), (t - 2 + 0.6, 5 - s), (t - 2 + 0.6, 5.3 - s), (t - 2.05, 5.3 - s)], p0], t, 1, 10], s, 0, 9)
L05 = Sequence(Sequence[If[Mod[100 + (10 * s) + t, 5] ≟ 0 ∧ 100 + (10 * s) + t ≠ 5, Polygon[(t - 2.05, 5 - s), (t - 2 + 0.6, 5 - s), (t - 2 + 0.6, 5.3 - s), (t - 2.05, 5.3 - s)], p0], t, 1, 10], s, 0, 9)
L07 = Sequence(Sequence[If[Mod[100 + (10 * s) + t, 7] ≟ 0 ∧ 100 + (10 * s) + t ≠ 7, Polygon[(t - 2.05, 5 - s), (t - 2 + 0.6, 5 - s), (t - 2 + 0.6, 5.3 - s), (t - 2.05, 5.3 - s)], p0], t, 1, 10], s, 0, 9)
L11 = Sequence(Sequence[If[Mod[100 + (10 * s) + t, 11] ≟ 0 ∧ 100 + (10 * s) + t ≠ 11, Polygon[(t - 2.05, 5 - s), (t - 2 + 0.6, 5 - s), (t - 2 + 0.6, 5.3 - s), (t - 2.05, 5.3 - s)], p0], t, 1, 10], s, 0, 9)
L13 = Sequence(Sequence[If[Mod[100 + (10 * s) + t, 13] ≟ 0 ∧ 100 + (10 * s) + t ≠ 11, Polygon[(t - 2.05, 5 - s), (t - 2 + 0.6, 5 - s), (t - 2 + 0.6, 5.3 - s), (t - 2.05, 5.3 - s)], p0], t, 1, 10], s, 0, 9)
L21 = Sequence(Sequence[If[Mod[100 + (10 * s) + t, 2] ≠ 0 ∧ Mod[100 + (10 * s) + t, 3] ≠ 0 ∧ Mod[100 + (10 * s) + t, 5] ≠ 0 ∧ Mod[100 + (10 * s) + t, 7] ≠ 0 ∧ Mod[100 + (10 * s) + t, 11] ≠ 0 ∧ Mod[100 + (10 * s) + t, 13] ≠ 0, Polygon[(t - 2.05, 5 - s), (t + 0.6 - 2, 5 - s), (t + 0.6 - 2, 5.3 - s), (t - 2.05, 5.3 - s)], p0], t, 1, 10], s, 0, 9)
c0 = Circle((-20, 0), 0)
L22 = Sequence(If[t ≟ 2 ∨ t ≟ 3 ∨ t ≟ 5 ∨ t ≟ 7, Circle[(t + 0.2, 5.15), 0.3], p0], t, 2, 10)
L021 = Sequence(Sequence[If[Mod[(10 * s) + t, 2] ≟ 0 ∧ (10 * s) + t ≠ 2, Circle[(t + 0.18 - 2, 5 - s + 0.15), 0.3], c0], t, 1, 10], s, 0, 9)
L031 = Sequence(Sequence[If[Mod[(10 * s) + t, 3] ≟ 0 ∧ (10 * s) + t ≠ 3, Circle[(t + 0.18 - 2, 5 - s + 0.15), 0.3], c0], t, 1, 10], s, 0, 9)
L051 = Sequence(Sequence[If[Mod[(10 * s) + t, 5] ≟ 0 ∧ (10 * s) + t ≠ 5, Circle[(t + 0.18 - 2, 5 - s + 0.15), 0.3], c0], t, 1, 10], s, 0, 9)
L071 = Sequence(Sequence[If[Mod[(10 * s) + t, 7] ≟ 0 ∧ (10 * s) + t ≠ 7, Circle[(t + 0.18 - 2, 5 - s + 0.15), 0.3], c0], t, 1, 10], s, 0, 9)
L111 = Sequence(Sequence[If[Mod[(10 * s) + t, 11] ≟ 0 ∧ (10 * s) + t ≠ 11, Circle[(t + 0.18 - 2, 5 - s + 0.15), 0.3], c0], t, 1, 10], s, 0, 9)
L211 = Sequence(Sequence[If[Mod[(10 * s) + t, 2] ≠ 0 ∧ Mod[(10 * s) + t, 3] ≠ 0 ∧ Mod[(10 * s) + t, 5] ≠ 0 ∧ Mod[(10 * s) + t, 7] ≠ 0 ∧ Mod[(10 * s) + t, 11] ≠ 0, Circle[(t + 0.18 - 2, 5 - s + 0.15), 0.3], c0], t, 1, 10], s, 1, 9)
L221 = Sequence(If[t ≟ 2 ∨ t ≟ 3 ∨ t ≟ 5 ∨ t ≟ 7, Circle[(t + 0.2 - 2, 5.15), 0.3], c0], t, 2, 10)
lista1 = Sequence(If[Mod[a, t] ≟ 0, Circle[(t - 0.8, 5.15), 0.3], c0], t, 1, a)
lista11 = Sequence(If[Mod[a, t] ≟ 0, Circle[(t - 0.8, 5.15), 0.3], c0], t, 1, a)

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

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

Tool: Tapa primos2 (command Tapaprimos2)
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), H + (0.7, 0.3), H + (0, 0.3))