διοφαντική με παραγοντικά και πρώτους
Δημοσιεύτηκε: Πέμ Φεβ 20, 2025 7:48 pm
βρείτε όλες τις τριάδες μη αρνητικών ακεραίων (a,b,p) όπου p πρώτος έτσι ώστε : 

https://mail.mathematica.gr/forum/
https://mail.mathematica.gr/forum/viewtopic.php?f=175&t=77191


Κώδικας: Επιλογή όλων
solutions =
Select[Flatten[
Table[{a, b, p}, {a, 0, 200}, {b, 0, 200}, {p, 2, 200}],
2], (Factorial[#[[1]]] + Factorial[#[[2]]] +
7*#[[1]]*#[[2]] == #[[3]]^2 && PrimeQ[#[[3]]]) &];
Κώδικας: Επιλογή όλων
solutions // TableForm
Aπο το προγραμματάκι παραπάνω δεν μπορούμε να βγάλουμε συμπέρασμα, ούτε κατά φαντασίαν. Και αυτό γιατί ο περιορισμός
είναι ΠΑΡΑ πολύ σφικτός. Συγκεκριμένα, το δεξί μέλος της δοθείσας είναι τότε
. Όπως στο αριστερό, ακόμη και για
, θα ξεπεράσουμε αυτήν την τιμή μόλις για
αφού 
στο προγραμματάκι μέχρι το
είναι αποπροσανατολιστικό. Το πράγραμμα θα σταματίσει έτσι και αλλιώς στο
. Δηλαδή σε πολύ μικρά νούμερα για να βγάλουμε κάποιο συμπέρασμα με βάση την διαίσθηση.
, αναγώμαστε στην
. Αν χαλαρώσουμε την υπόθεση
πρώτος, και πάμε στο γενικότερο πρόβλημα
τότε πέφτουμε στο
που σταματά το παραπάνω προγραμματάκι. Μέχρι το
οι μόνες γνωστές λύσεις ήταν οι
ή
ή
.
άρα
.
δηλαδή
. Αν a=1 προφανώς p=3 αν
, LHS>RHS , άτοπο
: η εξίωση γίνεται
προφανώς LHS > RHS , άτοπο
: έστω a=b+n , n όπου n ακέραιος
προφανώς LHS > RHS
: η εξίσωση γίνεται
. ΑΠΟ ΕΔΩ ΚΑΙ ΠΕΡΑ ΘΕΛΩ ΜΙΑ ΛΥΣΗ
η
όπως υπέδειξε ο κ.Λάμπρου.
και 
.
.
για οποιοδήποτε
. Έχουμε τότε λύση αφού
.
προς αναζήτηση λύσης (όπως θα έκανε ένα λογισμικό ή η ΑΙ) τότε η τιμή του
που δίνει λύση είναι πολύ πιο μεγάλη από την
. Όμως λύση υπάρχει. Αν τα δούμε ως ζεύγη, είναι τα 











