RecurrenceTable[{f[n] == Sqrt[1 + n + 1.6180339887 f[1 + n]], f[0] == 2.267712882}, f, {n, 0, 20}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.