|
|
A141039
|
|
Years in which there are five Wednesdays in the month of February.
|
|
8
|
|
|
1764, 1792, 1804, 1832, 1860, 1888, 1928, 1956, 1984, 2012, 2040, 2068, 2096, 2108, 2136, 2164, 2192, 2204, 2232, 2260, 2288, 2328, 2356, 2384, 2412, 2440, 2468, 2496, 2508, 2536, 2564, 2592, 2604, 2632, 2660, 2688, 2728, 2756, 2784, 2812, 2840, 2868, 2896, 2908, 2936, 2964, 2992, 3004, 3032
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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, 0, 1, -1).
|
|
MAPLE
|
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
|
|
MATHEMATICA
|
(* Needs Mma version >= 9.0 *)
okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Wednesday;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|