RecurrenceTable[{d[n+1] == d[n]-5, d[1] == 25}, d, {n, 1, 4}]