Hace poco me topé con una relación inesperada entre los números primos y la secuencia de Fibonacci. Sabemos mucho sobre los números de Fibonacci, pero relativamente poco sobre los primos, así que merece la pena explorar esta conexión. Me interesa saber si alguien conoce un teorema o una prueba de si esta relación se cumple en general para los primos > 5 -- Lo he probado empíricamente para los primeros 100k primos usando Mathematica, pero eso no es una prueba.
$$ S_n = GCD(n, Fib(n+1)) $$ Si evaluamos esto para $n ~ in ~{1..100}$ nos encontramos con que:
{1, 2 , 3 , 1, 1, 1, 7 , 2, 1, 1, 1, 1, 13 , 2, 3, 1, 17 , 1, 1, 2, 1, 1, 23 , 1, 1, 2, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 37 , 2, 3, 1, 1, 1, 43 , 2, 1, 1, 47 , 1, 1, 2, 3, 1, 53 , 1, 1, 2, 1, 1, 1, 1, 1, 2, 21, 1, 1, 1, 67 , 2, 1, 1, 1, 1, 73 , 2, 3, 1, 1, 1, 1, 2, 1, 1, 83 , 1, 1, 2, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 97 , 2, 33, 1}
Lo interesante de este resultado es que los primos aparecen en sus índices naturales: 2 aparece en $n_2$ , 13 aparece en $n_{13}$ , 83 aparece en $n_{83}$ y así sucesivamente. Pero faltan algunos de los primos, incluyendo:
{5, 11, 19, 29, 31, 41, 59, 61, 71, 79, 89}
Pero examinemos también la secuencia: $$ P_n = GCD(n, Fib(n-1)) $$
Aquí encontramos que en los primeros 100 términos obtenemos:
{1, 1, 1, 2, 1, 1, 1, 1, 3, 2, 11 , 1, 1, 1, 1, 2, 1, 1, 19 , 1, 3, 2, 1, 1, 1, 1, 1, 2, 29 , 1, 31 , 1, 3, 2, 1, 1, 1, 1, 1, 2, 41 , 1, 1, 1, 3, 2, 1, 1, 7, 1, 1, 2, 1, 1, 1, 1, 3, 2, 59 , 1, 61 , 1, 1, 2, 1, 1, 1, 1, 3, 2, 71 , 1, 1, 1, 1, 2, 1, 13, 79 , 1, 3, 2, 1, 1, 1, 1, 1, 2, 89 , 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 2}
Si combinamos las secuencias $S_n$ y $P_n$ parece que conseguimos todos los primos, excepto el 5:
{2, 3, ( Falta : 5), 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97}
A continuación se muestra un sencillo programa de Mathematica que prueba esto para los primeros miles de valores:
fibSuc[x_] := GCD[n, Fibonacci[n + 1]];
fibPre[x_] := GCD[n, Fibonacci[n - 1]];
fibPRZ[w_, fp_] :=
(Cases[Select[Transpose[{Table[fp[n], {n, 1, w}],
Table[x, {x, 1, w}]}], PrimeQ[#1[[2]]] & ], {a_, a_}]) /. {a_, a_} -> a;
genPrimes[z_] := Union[fibPRZ[z, fibSuc], fibPRZ[z, fibPre]];
With[{pz = genPrimes[50000]},
Complement[Table[Prime[n], {n, 1, Length[pz] + 1}], pz]]
5 votos
Probablemente es de notar que los primos de la primera lista son $\pm 3 \pmod{10}$ y en el segundo son $\pm1 \pmod{10}$ . $2,5$ son los únicos primos que no están en estas categorías
1 votos
También me gustaría señalar que si $p$ es primo, entonces $P_p$ es $1$ o $p$ por lo que este resultado no es tan sorprendente - lo que dice, por ejemplo, es que si $p \equiv \pm 1 \pmod {10}$ entonces $p \not \mid Fib(p-1)$
0 votos
@LBushkin puede escribir en su pregunta qué $Fib(1)$ es, para que no todos los lectores tengan que averiguarlo por su cuenta=)
1 votos
Este parece ser un resultado conocido, ya que aparece en la página de Wikipedia de los números de Fibonacci (en la sección "Divisores primos de los números de Fibonacci"). Por desgracia, no se ofrece ninguna prueba, aunque se hace referencia a dos libros.
1 votos
Estaba jugando con Fibonacci, y ¡sorpresa!, encontré esta relación de números primos: repl.it/JJPL/55