Weird numbers: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 965: | Line 965: | ||
acc+=_data(j) |
acc+=_data(j) |
||
If acc=ref Then ans=1:Return |
If acc=ref Then ans=1:Return |
||
If acc>ref then return |
|||
Next j |
Next j |
||
Return |
Return |
||
Line 988: | Line 989: | ||
Redim As Long u() |
Redim As Long u() |
||
Dim As Long SumFactors,number= |
Dim As Long SumFactors,number=2,count |
||
Do |
Do |
||
number+= |
number+=2 |
||
SumFactors=GetFactors(number,u()) |
SumFactors=GetFactors(number,u()) |
||
If SumFactors>number Then |
If SumFactors>number Then |