2 numeri criptati di 4 cifre che hanno ciascuno 8 divisori
ABBA CCAA. Sono il primo l 'ultimo della serie. Si tratta di cercare tra 8999
numeri e anche togliendo i numeri primi si tratta di cercare tra migliaia di numeri.Per dare un indizio scendo di 2 ordini di grandezza con il numero 24 e il numero 30 che anche
essi hanno 8 divisori.
E' bene analizzare la fattorizzazione
9994 ha 8 divisori ma non è in quel formato ed è il più grande con 8 divisori.
1
2
19
38
263
526
4997
9994
In totale i numeri di 4 cifre che hanno 8 divisori sono 1934 e il più grande di quel formato è 9889 che ha come divisori (ABBA)
1
11
29
31
319
341
899
9889
Mentre per il formato AABB è 9911 con i seguenti divisori:
1
11
17
53
187
583
901
9911
Il più piccolo nel formato ABBA è 1001 che ha come divisori:
1
7
11
13
77
91
143
1001
Per avere 8 divisori la scomposizione in fattori primi deve avere un numero di combinazioni con ripetizione tale che
#numeroFattori + #Combinazioni con le relative potenze multiple sia pari a 8,
Il programmino usato...
Sub a()
Dim i, j, count, n As Variant
n = 0
For i = 1000 To 9999
count = 0
For j = 1 To i
If i / j = CLng(i / j) Then
count = count + 1
' Debug.Print j
End If
Next
If count = 8 Then
Debug.Print i
n = n + 1
DoEvents
End If
Next
Debug.Print "totale:"; n
End sub
About Post Author
