

A028354


How the astronomical clock ("Orloj") in Prague strikes the hours (digits follow 12343212343... (A028356), nth group adds to n).


5



1, 2, 3, 4, 32, 123, 43, 2123, 432, 1234, 32123, 43212, 34321, 23432, 123432, 1234321, 2343212, 3432123, 4321234, 32123432, 123432123, 43212343, 2123432123, 432123432, 1, 2, 3, 4, 32, 123, 43, 2123, 432, 1234, 32123, 43212
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

There is a single bell, which to indicate 5 o'clock, say, strikes thrice then twice.


REFERENCES

Zdenek Horsky, "Prazsky Orloj" ["The Astronomical Clock of Prague", in Czech], Panorama, Prague, 1988, pp. 7678.


LINKS

Table of n, a(n) for n=1..36.
Michal Krížek, Alena Šolcová and Lawrence Somer, Construction of Šindel sequences, Comment. Math. Univ. Carolin., 48 (2007), 373388.
N. J. A. Sloane, My favorite integer sequences, in Sequences and their Applications (Proceedings of SETA '98).


MATHEMATICA

s[i_] := {1, 2, 3, 4, 3, 2}[[Mod[i, 6, 1]]]; m[k_] := If[ k == 1, 0, For[m0 = 1, True, m0++, If[k(k1)/2 == Sum[ s[i], {i, 1, m0}], Return[m0]]]]; n[k_] := For[n0 = m[k]+1, True, n0++, If[Sum[s[i], {i, m[k]+1, n0}] == k, Return[n0]]]; a[k_] := a[k] = If[k>24, a[k24], Table[ s[i], {i, m[k]+1, n[k]}] // FromDigits]; Array[a, 36] (* JeanFrançois Alcover, Mar 13 2016 *)


CROSSREFS

Cf. A028355, A028356, A068962, A118382, A118383.
Sequence in context: A004844 A037324 A067242 * A028355 A074920 A180631
Adjacent sequences: A028351 A028352 A028353 * A028355 A028356 A028357


KEYWORD

nonn,nice,base


AUTHOR

J. H. Conway


STATUS

approved



