OFFSET
1,1
MATHEMATICA
Table[SelectFirst[Table[{d, DayName[{2014, m, d}]}, {d, 7}], #[[2]] == Sunday&], {m, 12}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 06 2019 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
J. Lowell, Jan 02 2009
EXTENSIONS
Keywords added by Harvey P. Dale, May 06 2019
STATUS
approved