%I #21 Jul 26 2023 20:34:09
%S 1764,1792,1804,1832,1860,1888,1928,1956,1984,2012,2040,2068,2096,
%T 2108,2136,2164,2192,2204,2232,2260,2288,2328,2356,2384,2412,2440,
%U 2468,2496,2508,2536,2564,2592,2604,2632,2660,2688,2728,2756,2784,2812,2840,2868,2896,2908,2936,2964,2992,3004,3032
%N Years in which there are five Wednesdays in the month of February.
%H <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%H <a href="/index/Rec#order_16">Index entries for linear recurrences with constant coefficients</a>, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).
%p 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
%t (* Needs Mma version >= 9.0 *)
%t okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Wednesday;
%t Select[Range[1752, 3051, 4], okQ] (* _Jean-François Alcover_, Mar 27 2020 *)
%Y Cf. A119406 (Sun), A135795 (Mon), A143994 (Tue), A143995 (Thu), A141287 (Fri), A176478 (Sat).
%K nonn
%O 1,1
%A _J. Lowell_, Jul 30 2008
%E More terms from _R. J. Mathar_, Mar 29 2010
%E Missing terms inserted by _Jean-François Alcover_, Mar 27 2020