kill(all)$

van=facebook.com/LearningCalculus$

count:0$ array(seen,3*6!)$ for i: 1 thru 3*6! do seen[i]:0$

for A:1 thru 6 do
    for B: 1 thru 6 do
        for C: 1 thru 6 do
            (
                ABCf: A!+B!+C!,
                if seen[ABCf]    =    0 and 
                        ABCf     >  111 and
                        ABCf     < 1000 and
                    mod(ABCf,10) >    0 then
                (
                    count     :count + 1,
                    seen[ABCf]:1,
                    printf(true, "Answer ~2d: ~3d = ~2d! + ~2d! + ~2d! ~%",
                           count, ABCf, A, B, C)
                )
            )$