%I #8 May 06 2019 14:08:29
%S 5,2,2,6,4,1,6,3,7,5,2,7
%N First Sunday in n-th month of 365-day year starting on Wednesday
%t 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 *)
%K nonn,fini,full
%O 1,1
%A _J. Lowell_, Jan 02 2009
%E Keywords added by _Harvey P. Dale_, May 06 2019