RecurrenceTable[{a[n] == (a[n - 1]^2 + a[n - 2]^2 + a[n - 3]^2 + a[n - 4]^2 + a[n - 5]^2)/a[n - 6], a[1] == a[2] == a[3] == a[4] == a[5] == a[6] == 1}, a, {n, 1, 14}] (*
Michael De Vlieger, Aug 11 2016 *)
nxt[{a_, b_, c_, d_, e_, f_}] := {b, c, d, e, f, (b^2+c^2+d^2+e^2+f^2)/a}; NestList[ nxt, Table[1, 6], 20][[All, 1]] (*
Harvey P. Dale, Mar 18 2018 *)