login
A224947
Leap years having 53 Tuesdays and Wednesdays.
6
1608, 1636, 1664, 1692, 1704, 1732, 1760, 1788, 1828, 1856, 1884, 1924, 1952, 1980, 2008, 2036, 2064, 2092, 2104, 2132, 2160, 2188, 2228, 2256, 2284, 2324, 2352, 2380, 2408, 2436, 2464, 2492, 2504, 2532, 2560, 2588, 2628, 2656, 2684, 2724, 2752, 2780
OFFSET
1,1
COMMENTS
Gregorian calendar repeats after every 400 years because number of days in 400 years is 146097 which is a multiple of 7.
Non-century years are leap years if and only if they are multiples of 4 while century years are leap years if and only if they are multiples of 400.
14 occurrences in 400 years.
Months having Friday the 13th: June.
February 29th falls on Friday.
366 day leap year: 52 Sundays, 52 Mondays, 53 Tuesdays, 53 Wednesdays, 52 Thursdays, 52 Fridays, 52 Saturdays.
FORMULA
G.f.: x*(1608 + 28*x + 28*x^2 + 28*x^3 + 12*x^4 + 28*x^5 + 28*x^6 + 28*x^7 + 40*x^8 + 28*x^9 + 28*x^10 + 40*x^11 + 28*x^12 + 28*x^13 - 1580*x^14)/(1 - x - x^14 + x^15). - Charles R Greathouse IV, May 16 2026
MATHEMATICA
Needs["Calendar`"]; Select[Range[1583, 2800], DayOfWeek[{#, 1, 1}, Calendar -> Gregorian] == Tuesday && DaysBetween[{#, 1, 1}, {# + 1, 1, 1}, Calendar -> Gregorian] == 366 &, 50] (* T. D. Noe, Apr 22 2013 *)
Select[Range[1583, 3000], LeapYearQ[{#}]&&DayName[{#, 1, 1}]==Tuesday&] (* Ray Chandler, Jul 26 2023, v9 or later, after _Harvey P.Dale_ at A224945 *)
PROG
(PARI) a(n)=(n-1)\14*400+[1980, 1608, 1636, 1664, 1692, 1704, 1732, 1760, 1788, 1828, 1856, 1884, 1924, 1952][n%14+1] \\ Charles R Greathouse IV, May 16 2026
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Aswini Vaidyanathan, Apr 21 2013
STATUS
approved