A141039 Years in which there are five Wednesdays in the month of February.

1764, 1792, 1804, 1832, 1860, 1888, 1928, 1956, 1984, 2012, 2040, 2068, 2096, 2108, 2136, 2164, 2192, 2204, 2232, 2260, 2288, 2328, 2356, 2384, 2412, 2440, 2468, 2496, 2508, 2536, 2564, 2592, 2604, 2632, 2660, 2688, 2728, 2756, 2784, 2812, 2840, 2868, 2896, 2908, 2936, 2964, 2992, 3004, 3032

Offset: 1

Author

J. Lowell, Jul 30 2008

Keywords

• nonn

Links

• Index entries for sequences related to calendars
• Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).

Crossrefs

Cf. A119406 (Sun), A135795 (Mon), A143994 (Tue), A143995 (Thu), A141287 (Fri), A176478 (Sat).

Programs

Maple

A141039 := proc(n) nper := (n-1) mod 13 ; floor((n-1)/13)*400+op(1+nper , [1764,1792,1832,1860,1888,1928,1956,1984,2012,2040,2068,2096,2136] ) ; end proc: seq(A141039(n), n=1..80) ; # R. J. Mathar, Mar 29 2010

Mathematica

(* Needs Mma version >= 9.0 *)
okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Wednesday;
Select[Range[1752, 3051, 4], okQ] (* Jean-François Alcover, Mar 27 2020 *)

Extensions

More terms from R. J. Mathar, Mar 29 2010

Missing terms inserted by Jean-François Alcover, Mar 27 2020