A243002 a(n) = date of Easter in April of n, in the Gregorian calendar after A.D. 1582. a(n) = 0 if Easter occurs in March.

10, 1, 21, 6, 0, 17, 2, 22, 14, 0, 18, 10, 0, 14, 6, 0, 11, 2, 22, 7, 0, 18, 10, 0, 15, 6, 19, 11, 3, 22, 7, 0, 19, 3, 0, 15, 0, 19, 11, 0, 16, 7, 0, 12, 4, 23, 15, 0, 20, 11, 0, 16, 8, 0, 12, 4, 24, 8, 0, 20, 5, 0, 16, 1, 21, 12, 4, 17, 9, 0, 13, 5, 0, 16, 1, 21

Offset

1583,1

Links

Table of n, a(n) for n=1583..1658.

Wikipedia, Easter

Index entries for sequences related to calendars

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

Cf. A243001.

Sequence in context: A362551 A036188 A013617 * A050999 A223450 A221311

Adjacent sequences: A242999 A243000 A243001 * A243003 A243004 A243005

Keyword

nonn,easy

Author

Arkadiusz Wesolowski, Aug 16 2014

Status

approved