|
%I M4961 N2127 #38 Aug 07 2023 01:09:01
%S 1,15,29,12,26,12,26,9,23,7,21,4,18,2,16,30,13,27,10,24,8,22,5,19,3,
%T 17,31,14,28,11,25,11,25,8,22,6,20,3,17,1,15,29,12,26,9,23,7,21,4,18,
%U 2,16,30,13,27,10,24,10,24,7,21,5,19,2,16,30,14,28,11,25,8,22,6,20,3,17,1,15
%N Dates at fortnightly intervals from Jan 01 in the Julian calendar.
%C Sequence assumes that the first year is the year after a leap year.
%C Periodic sequence with period 1461. - _John Cerkan_, Mar 26 2017
%D Archimedeans Problems Drive, Eureka, 13 (1950), 11.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H John Cerkan, <a href="/A001356/b001356.txt">Table of n, a(n) for n = 1..10000</a>
%H John Cerkan, <a href="/A001356/a001356.py.txt">Python 2.7</a>
%H <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%t (* First program no longer functions in current Mathematica versions *)
%t (* first do *) Needs["Calendar`"]; (* then *) Table[Calendar`DaysPlus[{1, 1, 1}, 14 n][[3]], {n, 0, 77}] (* _Robert G. Wilson v_, Apr 18 2010 *)
%t Table[DateValue[DayPlus[{1,1,1},14 n,CalendarType->"Julian"],"Day"],{n,0,77}] (* recent Mathematica version, Giovanni Resta, Mar 22 2017; amended, _Ray Chandler_, Aug 07 2023 *)
%Y Cf. A051121.
%K nonn,easy,nice
%O 1,2
%A _N. J. A. Sloane_
%E More terms from Larry Reeves (larryr(AT)acm.org), Mar 17 2000
%E One more term from _Robert G. Wilson v_, Apr 18 2010
%E Name edited by _Charles R Greathouse IV_, Mar 27 2017
|
