|
| |
|
|
A090280
|
|
"Plain Bob Minimus" in bell-ringing is a sequence of permutations p_1=(1,2,3,4), p_2=(2,1,4,3), .. which runs through all permutations of {1,2,3,4} with period 24; sequence gives number in position 4 of n-th permutation.
|
|
0
| |
|
|
4, 3, 3, 1, 1, 2, 2, 4, 2, 4, 4, 1, 1, 3, 3, 2, 3, 2, 2, 1, 1, 4, 4, 3, 4, 3, 3, 1, 1, 2, 2, 4, 2, 4, 4, 1, 1, 3, 3, 2, 3, 2, 2, 1, 1, 4, 4, 3, 4, 3, 3, 1, 1, 2, 2, 4, 2, 4, 4, 1, 1, 3, 3, 2, 3, 2, 2, 1, 1, 4, 4, 3, 4, 3, 3, 1, 1, 2, 2, 4, 2, 4, 4, 1, 1, 3, 3, 2, 3, 2, 2, 1, 1, 4, 4, 3, 4, 3, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| R. Bailey, Change Ringing Resources
David Joyner, Application: Bell Ringing
Index entries for sequences related to bell ringing
|
|
|
FORMULA
| Period 24.
|
|
|
MAPLE
| ring:= proc(k) option remember; local l, a, b, c, swap, h; l:= [1, 2, 3, 4]; swap:= proc(i, j) h:=l[i]; l[i]:=l[j]; l[j]:=h end; a:= proc() swap(1, 2); swap(3, 4); l[k] end; b:= proc() swap(2, 3); l[k] end; c:= proc() swap(3, 4); l[k] end; [l[k], seq ([seq ([a(), b()][], j=1..3), a(), c()][], i=1..3)] end: a:= n-> ring(4)[modp(n-1, 24)+1]: seq (a(n), n=1..99); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), Aug 19 2008]
|
|
|
CROSSREFS
| Cf. A090277-A090284.
Sequence in context: A200617 A016699 A060373 * A177158 A177034 A177933
Adjacent sequences: A090277 A090278 A090279 * A090281 A090282 A090283
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Jan 24 2004
|
| |
|
|
