The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A028354 How the astronomical clock ("Orloj") in Prague strikes the hours (digits follow 12343212343... (A028356), n-th 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. 76-78. LINKS Michal Krížek, Alena Šolcová and Lawrence Somer, Construction of Šindel sequences, Comment. Math. Univ. Carolin., 48 (2007), 373-388. 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(k-1)/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[k-24], Table[ s[i], {i, m[k]+1, n[k]}] // FromDigits]; Array[a, 36] (* Jean-Franç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 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 9 07:36 EDT 2021. Contains 343692 sequences. (Running on oeis4.)