login
First Sunday in n-th month of 365-day year starting on Wednesday
0

%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