Printing numbers from 0001 to 9999 which will leave out numbers adding up to thirteen | Mathematica Program

The number 13 is traditionally considered to be an unlucky number in many countries. It even has a specifically recognized phobia, Triskaidekaphobia, a word which was coined in 1911. The superstitious sufferers of triskaidekaphobia try to avoid bad luck by keeping away from anything numbered or labeled thirteen. As a result, companies and manufacturers use another way of numbering or labeling to avoid the number, with hotels and tall buildings being conspicuous examples (Thirteenth floor). It's also considered to be unlucky to have thirteen guests at a table. Friday the 13th has been considered the unluckiest day of the month.

And the Colombia Shuttle was sent into space on 16/1/2003.

    1 + 6 + 1 + 2 + 0 + 0 + 3 = 13

The shuttle was exploded during re-entry and all its crew members died.

                                 

So, most Sri Lankans also consider number 13 as unlucky. Hence, the Government of Sri Lanka rejects vehicle registration numbers which add ups to thirteen.

                            i.e. 6412 = 6 + 4 + 1 + 2 = 13

Therefore, following Mathematica Program is to find the numbers from 1 to 9999, which will leave out numbers adding up to thirteen.

Read More >>> Mathematica Report