A143994 Years in which there are five Tuesdays in the month of February.

1752, 1780, 1820, 1848, 1876, 1916, 1944, 1972, 2000, 2028, 2056, 2084, 2124, 2152, 2180, 2220, 2248, 2276, 2316, 2344, 2372, 2400, 2428, 2456, 2484, 2524, 2552, 2580, 2620, 2648, 2676, 2716, 2744, 2772, 2800, 2828, 2856, 2884, 2924, 2952, 2980, 3020, 3048

Offset: 1

Author

J. Lowell, Sep 07 2008

Keywords

• nonn

Links

• 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, 1, -1).

Crossrefs

Cf. A119406 (Sun), A135795 (Mon), A141039 (Wed), A143995 (Thu), A141287 (Fri), A176478 (Sat).

Programs

Maple

A143994 := proc(n) nper := (n-1) mod 13 ; floor((n-1)/13)*400+op(1+nper , [1780, 1820, 1848, 1876, 1916, 1944, 1972, 2000, 2028, 2056, 2084, 2124, 2152] ) ; end proc: seq(A143994(n), n=1..80) ; # R. J. Mathar, Mar 29 2010

Mathematica

(* Needs Mma version >= 9.0 *)
okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Tuesday;
Select[Range[1752, 3051, 4], okQ] (* Jean-François Alcover, Mar 27 2020 *)

Extensions

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

a(1) = 1752 inserted by Jean-François Alcover, Mar 27 2020