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, 1, -1).
MAPLE
A143995 := proc(n) nper := (n-1) mod 13 ; floor((n-1)/13)*400+op(1+nper , [1776, 1816, 1844, 1872, 1912, 1940, 1968, 1996, 2024, 2052, 2080, 2120, 2148] ) ; end proc: seq(A143995(n), n=1..80) ; # R. J. Mathar, Mar 29 2010
MATHEMATICA
(* Needs Mma version >= 9.0 *)
okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Thursday;
Select[Range[1752, 3051, 4], okQ] (* Jean-François Alcover, Mar 27 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. Lowell, Sep 07 2008
EXTENSIONS
More terms from R. J. Mathar, Mar 29 2010
STATUS
approved