Mi hijo me dio la siguiente fórmula de recurrencia para $x_n$ ( $n\ge2$ ):
$$(n+1)(n-2)x_{n+1}=n(n^2-n-1)x_n-(n-1)^3x_{n-1}\tag{1}$$ $$x_2=x_3=1$$
La tarea que recibí de él:
- La secuencia tiene una propiedad interesante, descúbrela.
- Haz una conjetura y demuéstrala.
Obviamente, tuve que empezar con unos cuantos valores y calcularlos a mano resultó difícil. Así que utilicé Mathematica y definí la secuencia como sigue:
b[n_] := b[n] = n (n^2 - n - 1) a[n] - (n - 1)^3 a[n - 1];
a[n_] := a[n] = b[n - 1]/(n (n - 3));
a[2] = 1;
a[3] = 1;
Y obtuve los siguientes resultados:
$$ a_4=\frac{7}{4}, \ a_5=5, \ a_6=\frac{121}{6}, \ a_7=103, \ a_8=\frac{5041}{8}, \ a_9=\frac{40321}{9}, \\ a_{10}=\frac{362881}{10}, \ a_{11}=329891, \ a_{12}=\frac{39916801}{12}, \ a_{13}=36846277, \ a_{14}=\frac{6227020801}{14}\dots$$
Los números no tienen ningún sentido, pero es extraño que la secuencia produzca valores enteros de vez en cuando. No es algo que esperaba de una definición bastante compleja como (1).
Así que decidí encontrar los valores de $n$ produciendo valores enteros de $a_n$ . Hice un experimento para $2\le n \le 100$ :
table = Table[{i, a[i]}, {i, 2, 100}];
integers = Select[table, (IntegerQ[#[[2]]]) &];
itegerIndexes = Map[#[[1]] &, integers]
...y la salida fue:
{2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53,
59, 61, 67, 71, 73, 79, 83, 89, 97}
Conjetura (bastante sorprendente, al menos para mí):
$a_n$ es un número entero si y sólo si $n$ es primo.
Interesante prueba de primalidad, ¿no? El truco está en demostrar que es correcta. He comenzado con la sustitución:
$$y_n=n x_n$$
...lo que simplifica un poco (1):
$$(n-2)y_{n+1}=(n^2-n-1)y_n-(n-1)^2y_{n-1}$$
...pero no llegué mucho más lejos (el siguiente paso, supongo, debería ser la reordenación).