%I #22 Jan 27 2019 09:14:57
%S 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,1,14,2,
%T 15,3,16,4,17,5,18,6,19,7,20,8,1,9,2,10,3,11,4,12,5,13,6,1,7,2,8,3,9,
%U 4,10,5,11,6,12,7,13,8,14,9,15,10,16,11,17,12,18
%N Two-column table read by rows: The Mayan 260-day Tzolkin cycle, with day names replaced by numbers.
%C Day 1 of year 1 of the Mayan Long Count calendar (0.0.1.0.1) coincides with the first day of the Tzolkin cycle (1,1). Two Tzolkin cycles before that date, there was a new moon.
%H Lucian Craciun, <a href="/A320467/b320467.txt">Table of n, a(n) for n = 1..520</a>
%H John Walker, <a href="http://www.fourmilab.ch/documents/calendar">Calendar Converter</a>.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Tzolk'in">Tzolk'in</a>.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Mesoamerican_Long_Count_calendar">Mesoamerican Long Count calendar</a>.
%F a(2n-1) = ((n - 1) mod 13) + 1.
%F a(2n) = ((n - 1) mod 20) + 1.
%F a(n) = ((n - 1)/2 mod 13 + 1)*(n mod 2) + ((n/2 - 1) mod 20 + 1)*(1 - (n mod 2)). - _Stefano Spezia_, Dec 07 2018
%e The first pair, (1,1), represents 1 Imix; the second pair, (2,2), represents 2 Ik; the thirteenth pair, (13,13), represents 13 Ben; the fourteenth pair, (1,14), represents 1 Ix; the fifteenth pair, (2,15), represents 2 Men; etc.
%t For[{A := {}, k := 0}, k < 260, k++, A = Append[A, {1 + Mod[k, 13], 1 + Mod[k, 20]}]]; Flatten[A]
%t a[n_]:=(Mod[(n-1)/2, 13] + 1)*Mod[n, 2]+(Mod[n/2-1, 20] + 1)*(1-Mod[n, 2]); Array[a, 260] (* _Stefano Spezia_, Dec 07 2018 *)
%Y Cf. A081244, A215146.
%K easy,fini,full,nonn,tabf
%O 1,3
%A _Lucian Craciun_, Oct 13 2018