Random Matrix Theory

Mathematica code: RSolve[{a[k + 1] == (3/7) a[k] + 2/k, a[0] == 0}, a[k], k]