Table[Product[Expand[((1+Sqrt[2])^k-(1-Sqrt[2])^k)/(2*Sqrt[2])], {k, 1, n}], {n, 1, 20}]
FoldList[Times, LinearRecurrence[{2, 1}, {1, 2}, 20]] (*
Harvey P. Dale, Oct 07 2015 *)
FoldList[Times, Fibonacci[Range[20], 2]] (* or *)
Table[Round[(1+Sqrt[2])^((n-1)n/2) QFactorial[n, Sqrt[8]-3]], {n, 20}] (*
Vladimir Reshetnikov, Sep 15 2016 *)