@Markiyan Hirnyk 

sum(sum(A[i]*B[j], j = 1 .. min(6, 8-i)), i = 1 .. 6);

I changed it to the above later.That worked and gave me the counting sequence I'm after.

Thank you for your help

Based on what you did I tried this

 sum(sum(A[i]*B[j], i = 1 ..6 ), j = 1 .. min(6, 8-j));

But It would not calculate it

Based on what you did I tried this

 sum(sum(A[i]*B[j], i = 1 ..6 ), j = 1 .. min(6, 8-j));

But It would not calculate it