OFFSET
1583,1
LINKS
MATHEMATICA
If[#[[2]]==3, 0, #[[3]]]&/@(DataPaclets`CalendarDataDump`EasterSunday/@Range[1583, 1683]) (* The program uses the DataPaclets and CalendarDataDump functions from Mathematica version 10 *) (* Harvey P. Dale, Apr 01 2015 *)
PROG
(PARI) for(y=1583, 1658, a=lift(Mod(y, 19)); b=floor(y/100); c=lift(Mod(y, 100)); d=floor(b/4); e=lift(Mod(b, 4)); f=floor((b+8)/25); g=floor((b-f+1)/3); h=lift(Mod(19*a+b-d-g+15, 30)); i=floor(c/4); k=lift(Mod(c, 4)); l=lift(Mod(32+2*e+2*i-h-k, 7)); m=floor((a+11*h+22*l)/451); p=lift(Mod(h+l-7*m+114, 31)); if(floor((h+l-7*m+114)/31)==4, print1(p+1, ", "), print1(0, ", ")));
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Arkadiusz Wesolowski, Aug 16 2014
STATUS
approved