myMatrix[d_] := With[{c = (1/(Sqrt[2 # - 3] Sqrt[2 # - 1])) & /@ Range[2, d]},
         SparseArray[{
            {1, 1} -> 1, 
            Band[{1, 2}] -> c, 
            Band[{2, 1}] -> -c
            }, {d, d}]
    ];

    myMatrix[5] // MatrixForm

[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/IVE9o.png