Un primo, un cuadrado de un primo y un cubo de un primo en progresión aritmética.

Sacando los 30 primeros me da la sensacion de que cada vez la diferencia es mas grande. El ganador entre ellos sigue siendo (5623,6241,6859,618)

En 10 000 la menor diferencia común que encuentro es 618.

5623, 6241, 6859 es lo mejor que he podido encontrar (ver notas)

Mi ejemplo genera los 30 primeros cuadrados perfectos y los compara con los 30 primeros cubos perfectos que puedan tener a un primo antes que el cuadrado (que sean mayores que el doble de la diferencia) y los inserta en un array. Después cojo el de menor diferencia y lo imprimo.