*blacklotto*
Super Member >PLATINUM<
Una formazione di numeri non molto conosciuta sono i Numeri Amicabili, o Numeri Amicali o Numeri Amici
"Due numeri si dicono amicabili quando la somma dei divisori propri di uno è uguale all'altro e viceversa"
Per esempio il 220 e il 284 formano una coppia di numeri amicabili perché il 220 è divisibile per 1, 2, 3, 5, 10, 11, 20, 22, 44, 55 e 110: la loro somma è 284; mentre il numero 284 ha come divisori il 1, 2, 4, 71,142 e la somma è proprio 220"
Altri numeri amicabili sono ad esempio le coppie 1184 e 1210, 2620 e 2924, 5020 e 5564, 6232 e 6368, 17296 e 18416
Forse troppo complesso da inserire nel listato le varie stringhe, ma forse per coloro che conoscono bene lo sviluppo dei listati potrebbero arrivarci.
Sarebbe molto gradito questo listato, tanto per poi poter studiarci sopra.
Ho trovato un listato che a saperlo modificare per Spaziometria dovrebbe essere quello che cerco :
( programma in DECIMAL BASIC per trovare tutte le coppie di numeri amici in un dato intervallo )
DECLARE EXTERNAL FUNCTION f
FOR n=1 TO 10000
LET m=f
if n<m AND n=f(m) THEN PRINT n,m
NEXT n
END
EXTERNAL FUNCTION f
LET s=1
FOR i=2 TO SQR(n )
IF MOD(n,i)=0 THEN
IF i=n/i THEN LET s=s+i ELSE LET s=s+i+(n/i)
END IF
NEXT i
LET f=s
END FUNCTION
Grazie a chiunque voglia darmi una mano
"Due numeri si dicono amicabili quando la somma dei divisori propri di uno è uguale all'altro e viceversa"
Per esempio il 220 e il 284 formano una coppia di numeri amicabili perché il 220 è divisibile per 1, 2, 3, 5, 10, 11, 20, 22, 44, 55 e 110: la loro somma è 284; mentre il numero 284 ha come divisori il 1, 2, 4, 71,142 e la somma è proprio 220"
Altri numeri amicabili sono ad esempio le coppie 1184 e 1210, 2620 e 2924, 5020 e 5564, 6232 e 6368, 17296 e 18416
Forse troppo complesso da inserire nel listato le varie stringhe, ma forse per coloro che conoscono bene lo sviluppo dei listati potrebbero arrivarci.
Sarebbe molto gradito questo listato, tanto per poi poter studiarci sopra.
Ho trovato un listato che a saperlo modificare per Spaziometria dovrebbe essere quello che cerco :
( programma in DECIMAL BASIC per trovare tutte le coppie di numeri amici in un dato intervallo )
DECLARE EXTERNAL FUNCTION f
FOR n=1 TO 10000
LET m=f
if n<m AND n=f(m) THEN PRINT n,m
NEXT n
END
EXTERNAL FUNCTION f
LET s=1
FOR i=2 TO SQR(n )
IF MOD(n,i)=0 THEN
IF i=n/i THEN LET s=s+i ELSE LET s=s+i+(n/i)
END IF
NEXT i
LET f=s
END FUNCTION
Grazie a chiunque voglia darmi una mano
