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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A060495 Each permutation in the list A060117 converted to Site Swap notation, with "zero throws" (fixed elements) replaced with n, the length of siteswap. 10
1, 11, 312, 111, 231, 222, 4413, 1313, 4112, 1111, 2411, 2312, 4242, 1241, 4233, 1223, 2222, 2231, 3441, 3342, 3131, 3122, 3423, 3333, 55514, 14514, 51414, 11314, 25314, 24414, 55113, 14113, 51112, 11111, 25111, 24112, 52512, 12511, 52413 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Table of n, a(n) for n=0..38.

Site Swap notation explained.

FORMULA

a(n) = SiteSwap1ToDec(Perm2SiteSwap1(PermUnrank3R(n)))

MAPLE

Perm2SiteSwap1 := proc(p) local ip, n, i, a; n := nops(p); ip := convert(invperm(convert(p, 'disjcyc')), 'permlist', n); a := []; for i from 1 to n do a := [op(a), ((ip[i]-i) mod n)]; od; RETURN(a); end;

SiteSwap1ToDec := proc(s) local i, z, n; n := nops(s); z := 0; for i from 1 to n do z := 10*z; if(0 = s[i]) then z := z+n; else z := z+s[i]; fi; od; RETURN(z); end;

CROSSREFS

Cf. factorial base representation A007623 and A060496, A006694.

See also A060498, A060499, A061417. Average of digits gives number of balls: A060501.

Sequence in context: A193890 A317744 A185071 * A251589 A070278 A090272

Adjacent sequences:  A060492 A060493 A060494 * A060496 A060497 A060498

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Mar 21 2001

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 02:52 EDT 2019. Contains 328038 sequences. (Running on oeis4.)