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,1

Links

Table of n, a(n) for n=1..49.

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).

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 *)

Crossrefs

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

Sequence in context: A238050 A213804 A252309 * A205731 A151769 A165678

Adjacent sequences: A141036 A141037 A141038 * A141040 A141041 A141042

Keyword

nonn

Author

J. Lowell, Jul 30 2008

Extensions

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

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

Status

approved