Составить алгоритм и программу вычисления суммы n членов последовательности,общий член которой задан формулой ai=i^2+2.исполнитель для n=3

Код на vbscript - проверялся, работает function sumofdividers(byval num)       sumofdividers = 0       for i = 1 to num - 1             if num mod i = 0 then sumofdividers = sumofdividers + i       next end function sub zadanie23317569(byval n)       for i = 2 to n             k = sumofdividers(i)             if sumofdividers(k) = i then msgbox i & " " & k       next end sub zadanie23317569 300 код на vb.net  - исправление как догадалась, не проверялось sub main(byval n)       dim i as integer       dim k as integer       for i = 2 to n               k = sumofdividers(i)               if sumofdividers(k) = i then console.writelline(i & " " & k)       next end sub function sumofdividers(byval num as integer) as integer       dim i as integer       sumofdividers = 0       for i = 1 to num - 1               if num mod i = 0 then sumofdividers = sumofdividers + i       next end function