- Φιλικοί αριθμοί... - .-= Η ΓΝΩΣΗ =-.

Δεν λέγονται φιλικοί αλλά "φίλοι".

Οι "φίλοι" αριθμοί είναι αυτοί που το άθροισμα των "διαιρετών" του ενός μας κάνει τον άλλον αριθμό και το αντίστροφο. Έτσι ένα γνωστό από την αρχαιότητα ζευγάρι "φίλων" αριθμών είναι το 220 και 284. Το άθροισμα των διαιρετών του 220 μας δίνει 284 και αντίστοιχα το άθροισμα των διαιρετών του αριθμού 284 μας δίνει τον αριθμό 220. Αυτή η σχέση μεταξύ των αριθμών είναι ικανή για να θεωρήσουν οι Πυθαγόρειοι αυτούς τους αριθμούς ως “φίλους”, δηλαδή ως “αγαπημένους”.

Αυτό το ζευγάρι φίλων αριθμών ήταν ένα από τα ζευγάρια που αναφέρεται ότι το είχαν ανακαλύψει οι Πυθαγόρειοι.

Εδώ υπάρχει μια όμορφη και παράξενη σύμπτωση (;)

Ενδιαφέρον είναι ότι ο αριθμός 284 είναι ένας πολύ γνωστός λεξάριθμος, ο λεξάριθμος της λέξης ΘΕΟΣ (και ΑΓΑΘΟΣ). Επίσης προσπαθώντας να ερμηνεύσουμε τον αριθμός 220 σημειώνουμε ότι το ΟΛΟΝ= 220. Έτσι μια πιθανή λεξαριθμική σχέση μεταξύ αυτών των 2 φίλων αριθμών είναι ότι ο Θεός και το Όλον συνδέονται μεταξύ τους με “φιλία”.

Ποιος ξέρει;

βρηκα και μερικους αλλους αριθμους εκτος απο το 220 και το 284

εχουμε ακομα
1184 με 1210
2620 με 2924
5020 με 5564
6232 με 6368

παρακατω σας παραθετω ενα προγραμμα σε gwbasic (μη βαρατε) που δημιουργει ενα αρχειο data.txt με το αθροισμα των διαιρετων ολων τον αριθμων εως το 30000
τρεχει σε gwbasic η και qbasic
τελος παντων μπορειτε να το φτιαξεται σε οποια γλώσσα θελετε
και μετα μπορειτε να ψαξεται στα αποτελεσματα να βρειτε και αλλους αριθμους (προφανως με την βοήθεια μιας βάσης δεδομένων η το excel)

10 CLS
15 'BY DIMSOT'
20 A=2:B=1:J=1
30 INPUT "GIVE START NUMBER 2 EOS 30000 ";A
40 IF A < 2 OR A > 30000 THEN GOTO 30
50 INPUT "GIVE HOW MANY NUMBERS 1 EOS 30000 ";NNN1
60 IF NNN1 <1 OR NNN1 > 30000 THEN GOTO 50
65 CLS
70 OPEN "O",#1,"DATA.TXT"
80 FOR NUMS=1 TO NNN1-1
90 FOR J=1 TO A-1 STEP 1
100 B=B+1:C=A/B:D=A MOD B
110 IF D=0 THEN SUM=SUM+C
120 'IF D=0 THEN SUM=SUM+C:WRITE#1,A;B;C;D
130 'IF D=0 THEN SUM=SUM+C:PRINT A;B;C;D
140 NEXT J
150 WRITE#1,A,SUM
160 LOCATE 4,10:PRINT A:LOCATE 4,20:PRINT SUM
170 A=A+1
180 SUM=0
190 B=1
200 N=0
210 NEXT NUMS
220 CLOSE #1
230 PRINT "THIS IS THE END USE THE FILE DATA.TXT"
240 SYSTEM