Программирование циклов, управляемых условием. VB 2008 .NET

[Alex0161]

Программирование циклов, управляемых условием. VB 2008 .NET

Вычислить с точностью Е=0.5 значение функции
y= √(3+√(6+√(9+⋯)) )

Програмный код

 Public Sub rr(ByRef s As Single)
        Dim u, p As Double
        Dim i As Integer = 1
        Dim n As Integer = 0
        ek = CSng(InputBox("Введите точность е"))
        p = 1
        Do While Math.Abs(p - u) > e
            p = u
            u = Pow(3 * i, (1 / (2 * i)))
            sk += CSng(u)
            i += 1
        Loop
    End Sub

правильна формула под u=????:tehnari_ru_837:

 

[Alex0161]

нужна рекуррентная формула под u