Question: How to write a code to get following Matrix D?

How to write a code to get following Matrix D?

MY TRY: (But it' s not completely what I seek)

restart:

k:=1:
M:=2:
N:=2^k*(M+1):

U:=Matrix(M+1,M+1):
for r from 2 to M+1 do
for s from 1 to r-1 do
if type(r+s,odd) then
U(r,s):=2^(k+1)*sqrt((2*r-1)*(2*s-1)):
 else 0 end if:
end do:
end do:

#Let's find Matrix D, In here it' s shown matrix DD 
DD:=Matrix(N,N,shape=diagonal,fill=U);
Please Wait...