|
Search: id:A060495
|
|
|
| A060495 |
|
Each permutation in the list A060117 converted to Site Swap notation, with "zero throws" (fixed elements) replaced with n, the length of siteswap. |
|
+0
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; listen)
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
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.
Adjacent sequences: A060492 A060493 A060494 this_sequence A060496 A060497 A060498
Sequence in context: A012079 A001280 A100445 this_sequence A070278 A090272 A090271
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Antti Karttunen, Mar 21 2001
|
|
|
Search completed in 0.002 seconds
|
