Clear[d1,d2,d3]

Cria uma matriz tridiagonal e mostra os valores

n=5;
M=SparseArray[{Band[{1,1}]->d1,Band[{2,1}]->d2,Band[{1,2}]->d3},{n,n}];

Normal[M]

Cria um vetor cujas entradas são todas nulas, exceto a primeira

b=ConstantArray[0,{n,1}];
b[[1,1]]=a;
b

Para um caso específico, resolve um sistema linear

d1=2;d2=5;d3=10;
a=1;
LinearSolve[M,b];