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

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
L02 = Sequence(Sequence[If[Mod[(10 * s) + t, 2] ≟ 0 ∧ ((10 * s) + t ≠ 2), Circle[(t + 0.2, 5 - s + 0.15), 0.3], Text["", (t, 5 - s)]], t, 1, 10], s, 0, 9)
L03 = Sequence(Sequence[If[Mod[(10 * s) + t, 3] ≟ 0 ∧ ((10 * s) + t ≠ 3), Circle[(t + 0.2, 5 - s + 0.15), 0.3], Text["", (t, 5 - s)]], t, 1, 10], s, 0, 9)
L05 = Sequence(Sequence[If[Mod[(10 * s) + t, 5] ≟ 0 ∧ ((10 * s) + t ≠ 5), Circle[(t + 0.2, 5 - s + 0.15), 0.3], Text["", (t, 5 - s)]], t, 1, 10], s, 0, 9)
L07 = Sequence(Sequence[If[Mod[(10 * s) + t, 7] ≟ 0 ∧ ((10 * s) + t ≠ 7), Circle[(t + 0.2, 5 - s + 0.15), 0.3], Text["", (t, 5 - s)]], t, 1, 10], s, 0, 9)
L11 = Sequence(Sequence[If[Mod[(10 * s) + t, 11] ≟ 0 ∧ ((10 * s) + t ≠ 11), Circle[(t + 0.2, 5 - s + 0.15), 0.3], Text["", (t, 5 - s)]], t, 1, 10], s, 0, 9)
o = false
p = false
L21 = 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.2, 5 - s + 0.15), 0.3], Text["", (t, 5 - s)]], t, 1, 10], s, 1, 9)
L22 = Sequence(If[t ≟ 2 ∨ t ≟ 3 ∨ t ≟ 5 ∨ t ≟ 7, Circle[(t + 0.2, 5.15), 0.3], Text["", (t, 5)]], t, 2, 10)
q = Circle((1.2, 4.15), 0.3)
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
lista1 = Sequence(If[Mod[a, t] ≟ 0, Circle[(t - 0.8, 5.15), 0.3], ""], t, 1, a)
texto7 = Sequence(Text[If[t < 10, " " + (t) + " ", "" + (t)], (t - 1, 5)], t, 1, 15)
L01 = Sequence(Sequence[If[s ≟ 0 ∧ (t < 10), Text[" " + (t) + " ", (t + 0.05, 5.05 - s)], If[s ≟ 9 ∧ t ≟ 10, Text["100", (t - 0.06, 5.05 - s)], Text[(10 * s) + t, (t + 0.03, 5.05 - s)]]], t, 1, 10], s, 0, 9)

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

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