|
%I #15 Oct 13 2022 15:28:24
%S 365,365,365,366,365,365,365,366,365,365,365,366,365,365,365,366,365,
%T 365,365,366,365,365,365,366,365,365,365,366,365,365,365,366,365,365,
%U 365,366,365,365,365,366,365,365,365,366,365,365,365,366
%N Days in year in proleptic Gregorian calendar.
%C This sequence is periodic with period 400. The exceptions to the apparent period 4 are a(100) = a(200) = a(300) = 365. - _Franklin T. Adams-Watters_, Jul 10 2009
%H <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%H <a href="/index/Rec#order_400">Index entries for linear recurrences with constant coefficients</a>, order 400.
%t (* first do *) Needs["Calendar`"] (* then *) Table[ DaysBetween[{y, 1, 1}, {y + 1, 1, 1}], {y, 48}] (* _Robert G. Wilson v_, Apr 18 2010 *)
%o (PARI) a(n)=if(n%4, 365, if(n%100, 366, n%400, 366, 365)) \\ _Charles R Greathouse IV_, Oct 13 2022
%K nonn,easy
%O 1,1
%A Juan-Carlos Lerman (jclerm(AT)aztec.asu.edu)
|
