|
%I #19 Jul 26 2023 20:39:42
%S 1772,1812,1840,1868,1896,1908,1936,1964,1992,2020,2048,2076,2116,
%T 2144,2172,2212,2240,2268,2296,2308,2336,2364,2392,2420,2448,2476,
%U 2516,2544,2572,2612,2640,2668,2696,2708,2736,2764,2792,2820,2848,2876,2916,2944,2972,3012,3040
%N Years in which there are five Saturdays 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_15">Index entries for linear recurrences with constant coefficients</a>, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).
%t (* Needs Mma version >= 9.0 *)
%t okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Saturday;
%t Select[Range[1752, 3052, 4], okQ] (* _Jean-François Alcover_, Mar 27 2020 *)
%Y Cf. A119406 (Sun), A135795 (Mon), A143994 (Tue), A141039 (Wed), A143995 (Thu), A141287 (Fri).
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 18 2010
%E Wrong years removed by _J. Lowell_, Apr 22 2010
%E Corrected and extended by _Jean-François Alcover_, Mar 27 2020
|
