Clear[a]

a[1] = 18/13

a[n_] := a[n - 1]*(19/17)

a[1]

a[2]

Clear[m]

m[N_] := Module[{n = 1}, While[a[n] < N, n = n + 1]; n]

m[19/13]

m[2520]