The Gregorian calendar follows a pattern of leap years which repeats every 400 years. This is true since the number of days in 400 Gregorian years is

which is an exact number of weeks since it is divisible by 7 (namely, ). There are 4,800 months in 400 years, so the 13th of the month occurs 4,800 times in this interval. The number of times the 13th occurs on each weekday is given in the table below. As shown by Brown (1933), the thirteenth of the month is slightly more likely to be on a Friday than on any other day.

On average, there are 1.72 ( ) Friday the 13ths per calendar year. The following table summarizes Friday the 13ths for years between 2000 and 2010.

The following Mathematica code can be used to generate the counts of the number of times a given weekday occurs.

  <<Miscellaneous`Calendar`;
  days={Monday,Tuesday,Wednesday,Thursday,
    Friday,Saturday,Sunday};
  c=Count[Flatten[Table[DayOfWeek[{y,m,13}],{y,2000,2399},
    {m,12}]],#]&/@days; 
  TableForm[
    {days,c,PaddedForm[#,{6,4}]&/@(100. c/Plus@@c),
    ToString//@Flatten[Position[Sort[c,Greater],#]]&/@c},
    TableDirections->{Row,Column},
    TableHeadings->{
      {"day","numbers of 13s","percentage","rank"},None
    }
  ] 

Weekday