OFFSET
1,1
LINKS
Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).
MATHEMATICA
(* Needs Mma version >= 9.0 *)
okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Saturday;
Select[Range[1752, 3052, 4], okQ] (* Jean-François Alcover, Mar 27 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 18 2010
EXTENSIONS
Wrong years removed by J. Lowell, Apr 22 2010
Corrected and extended by Jean-François Alcover, Mar 27 2020
STATUS
approved