A131773 Epact in Julian calendar for a year n with Golden Number (n mod 19) + 1 = A074805(n).
30, 11, 22, 3, 14, 25, 6, 17, 28, 9, 20, 1, 12, 23, 4, 15, 26, 7, 18, 30, 11, 22, 3, 14, 25, 6, 17, 28, 9, 20, 1, 12, 23, 4, 15, 26, 7, 18, 30, 11, 22, 3, 14, 25, 6, 17, 28, 9, 20, 1, 12, 23, 4, 15, 26, 7, 18, 30, 11, 22, 3, 14, 25, 6, 17, 28, 9, 20, 1, 12, 23, 4, 15, 26, 7, 18, 30, 11
Offset: 0
Examples
a(2007)=12 as the Julian Epact for the year 2007 is (11*(2007 mod 19)) mod 30 = (11*12) mod 30 = 12. ((2007 mod 19)+1 = 12+1 = 13 = A074805(2007) is the corresponding Golden Number for 2007).
Links
- Claus Tondering, Frequently Asked Questions about Calendars.
- Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
Crossrefs
Cf. A074805.
Programs
-
Mathematica
LinearRecurrence[{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},{30, 11, 22, 3, 14, 25, 6, 17, 28, 9, 20, 1, 12, 23, 4, 15, 26, 7, 18},78] (* Ray Chandler, Aug 27 2015 *) PadRight[{},120,{30,11,22,3,14,25,6,17,28,9,20,1,12,23,4,15,26,7,18}] (* Harvey P. Dale, Sep 14 2019 *)
-
PARI
a(n)= JE=(11*(n%19))%30; if(JE==0,30,JE)
Formula
a(n) = (11*(A074805(n)-1)) mod 30, but replacing every 0 result with 30. See program and link.
G.f.: (18*x^18 +7*x^17 +26*x^16 +15*x^15 +4*x^14 +23*x^13 +12*x^12 +x^11 +20*x^10 +9*x^9 +28*x^8 +17*x^7 +6*x^6 +25*x^5 +14*x^4 +3*x^3 +22*x^2 +11*x +30)/(-x^19 +1). - Colin Barker, Jul 18 2013
Comments