login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 5000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A143485 "Fourth down, Extream [sic] between the two farthest Bells from it" in bell-ringing is a sequence of permutations p_1=(1,2,3,4), p_2=(1,2,4,3), .. which runs through all permutations of {1,2,3,4} with period 24; sequence gives number in position 2 of n-th permutation. 0
2, 2, 4, 1, 1, 4, 3, 3, 1, 1, 4, 3, 3, 4, 2, 2, 3, 3, 4, 2, 2, 4, 1, 1, 2, 2, 4, 1, 1, 4, 3, 3, 1, 1, 4, 3, 3, 4, 2, 2, 3, 3, 4, 2, 2, 4, 1, 1, 2, 2, 4, 1, 1, 4, 3, 3, 1, 1, 4, 3, 3, 4, 2, 2, 3, 3, 4, 2, 2, 4, 1, 1, 2, 2, 4, 1, 1, 4, 3, 3, 1, 1, 4, 3, 3, 4, 2, 2, 3, 3, 4, 2, 2, 4, 1, 1, 2, 2, 4, 1, 1, 4, 3, 3, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Start with (1,2,3,4), i.e. the first permutation of {1,2,3} followed by 4; then for each next permutation, transpose 4 one to the left; if at position 1, replace {1,2,3} recursively by the next permutation of these numbers. Thereafter, for each next permutation, transpose 4 to the right. And so on.

LINKS

Table of n, a(n) for n=1..105.

The Project Gutenberg EBook of Tintinnalogia, or, the Art of Ringing, by Richard Duckworth and Fabian Stedman

Index entries for sequences related to bell ringing

FORMULA

Period 24.

MAPLE

ring:= proc(k::nonnegint) local p, i, left, l, nf, ini; if k<=1 then proc() [1$k] end else ini := proc() p:= ring(k-1); i:= k; left:= true; l:= p(); nf:= k! end; ini(); proc() local ll; ll:= [seq(l[t], t=1..(i-1)), k, seq(l[t], t=i..(k-1))]; if left then if i>1 then i:= i-1 else left:= false; l:=p() fi else if i<k then i:= i+1 else left:= true; l:=p() fi fi; nf:= nf-1; if nf = 0 then ini() fi; ll end fi end: bell := proc(k) option remember; local p; p:= ring(k); [seq(p(), i=1..k!)] end: a := n-> bell(4)[modp(n-1, 24)+1][2]: seq (a(n), n=1..121);

CROSSREFS

Cf. A143484-A143490, A090281.

Sequence in context: A071436 A214741 A243487 * A181633 A245204 A099320

Adjacent sequences:  A143482 A143483 A143484 * A143486 A143487 A143488

KEYWORD

nonn

AUTHOR

Alois P. Heinz, Aug 19 2008

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified December 4 19:31 EST 2016. Contains 278755 sequences.