Det[ Table[ a[Min[i,j]], {i,1,5}, {j,1,5}] ]