A007884 Chimes made by clock striking quarter-hours.
1, 2, 3, 1, 1, 2, 3, 2, 1, 2, 3, 3, 1, 2, 3, 4, 1, 2, 3, 5, 1, 2, 3, 6, 1, 2, 3, 7, 1, 2, 3, 8, 1, 2, 3, 9, 1, 2, 3, 10, 1, 2, 3, 11, 1, 2, 3, 12, 1, 2, 3, 1, 1, 2, 3, 2, 1, 2, 3, 3, 1, 2, 3, 4, 1, 2, 3, 5, 1, 2, 3, 6, 1, 2, 3, 7, 1, 2, 3, 8, 1, 2, 3, 9, 1, 2, 3, 10, 1, 2, 3, 11, 1, 2, 3, 12
Offset: 0
Keywords
Programs
-
Mathematica
Table[Flatten[Table[PadRight[{1,2,3},4,h],{h,12}]],{2}]//Flatten (* Harvey P. Dale, Jun 16 2023 *) -
PARI
a(n)= if((n+1)%4, (n+1)%4, ((n+1)/4-1)%12+1) \\ Michel Marcus, Jul 17 2013
Comments