(%i14) kill(all);


v:[4,8,2,4,5,6,2,8,9,1,5,1,4];


s1:(v[1]+v[3]+v[5]+v[7]+v[9]+v[11]);


s2:3*(v[2]+v[4]+v[6]+v[8]+v[10]+v[12]);


s:s1+s2;


x:s;


r:mod (x,10);


v[13]:10-r;
v;

f2(v):=3*(v[2]+v[4]+v[6]+v[8]+v[10]+v[12]);


f1(v):=(v[1]+v[3]+v[5]+v[7]+v[9]+v[11]);


S1:f1(v);


S2:f2(v);

Result

(%i13) for i:0 next i+1 thru 9 do ( v[1]:i, for j:0 next j+1 thru 9 do( v[2]:j, S:f1(v)+f2(v), r:mod(S,10),if v[13]=10-r then display (v)));

Result

Created with wxMaxima.