- Function Tnumber(ByVal n As Long) As String
- Dim temp$, r&, k&
- For k = n - 1 To 1 Step -1
- t = (n * (n + 1) - k * (k + 1)) / 2
- If t Mod (k) = 0 Then r = r + 1: temp = temp & ",{" & n & "," & t / k & "," & t / k + k & "," & k & "}"
- Next
- temp = n & "," & r & temp
- Tnumber = temp
- End Function
- Sub Test()
- Debug.Print Tnumber(8000)
- End Sub
复制代码
8000,47,{8000,126,8001,7875},{8000,1402,8122,6720},{8000,2742,8457,5715},{8000,4267,9067,4800},{8000,4977,9422,4445},{8000,5921,9953,4032},{8000,8492,11667,3175},{8000,9672,12552,2880},{8000,10666,13333,2667},{8000,10879,13504,2625},{8000,13167,15407,2240},{8000,15847,17752,1905},{8000,19202,20802,1600},{8000,19532,21107,1575},{8000,23140,24484,1344},{8000,27428,28571,1143},{8000,27885,29010,1125},{8000,32857,33817,960},{8000,35555,36444,889},{8000,36138,37013,875},{8000,50082,50717,635},{8000,55274,55850,576},{8000,60697,61222,525},{8000,71213,71661,448},{8000,83809,84190,381},{8000,85156,85531,375},{8000,99852,100172,320},{8000,101442,101757,315},{8000,142127,142352,225},{8000,166591,166783,192},{8000,182792,182967,175},{8000,251936,252063,127},{8000,255969,256094,125},{8000,304747,304852,105},{8000,426682,426757,75},{8000,500030,500094,64},{8000,507968,508031,63},{8000,711177,711222,45},{8000,914382,914417,35},{8000,1280147,1280172,25},{8000,1523989,1524010,21},{8000,2133592,2133607,15},{8000,3555995,3556
004,9},{8000,4571996,4572003,7},{8000,6400797,6400802,5},{8000,10667998,10668001,3},{8000,32003999,32004000,1} |