Numbers = [10, 2, 3, 1]
Maximum = 13
Array = [0 for i in xrange(0, Maximum + 1)]
Array[0] = 1
for CurrentNum in Numbers:
    for Num in xrange(Maximum - CurrentNum, -1, -1):
        if (Array[Num]):
            Array[Num + CurrentNum] += 1

print Array[Maximum]