TunkRank в Mathematica

я испытываю Mathematica впервые и использую TunkRank в качестве моего предпочтительного алгоритма. Вот то, что я придумал:

Following = {{2, 3, 4}, {0, 4}, {1, 3}, {1, 4}, {0, 2}}
Followers = {{1, 4}, {2, 3}, {0, 4}, {0, 2}, {0, 1, 3}}
p = 0.05
Influence[x_] := Influence[x] =
    Sum[1 + (p * Influence[Followers[[x, i]]])/(1 + 
        Length[Following[[x]]]), {i, 0, Length[Followers[[x]]]}]

при выполнении этого в Mathematica, вы будете видеть, что он не воздействует на просто узлы подписчика. Вместо этого рекурсия бесконечна. Что я делаю неправильно?