|
| |
|
|
A060501
|
|
Average of digits of each term in A060495, number of balls in each such siteswap juggling pattern.
|
|
3
| |
|
|
1, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2, 2, 3, 2, 3, 2, 2, 2, 3, 3, 2, 2, 3, 3, 4, 3, 3, 2, 3, 3, 3, 2, 2, 1, 2, 2, 3, 2, 3, 2, 2, 2, 3, 3, 2, 2, 3, 3, 4, 3, 3, 2, 3, 3, 4, 3, 3, 2, 3, 3, 3, 2, 3, 2, 2, 2, 3, 3, 2, 2, 3, 3, 4, 3, 4, 3, 3, 3, 3, 2, 3, 2, 2, 2, 4, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 3, 3, 4, 4, 3, 3, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
FORMULA
| a(n) = avg(Perm2SiteSwap2(PermUnrank3R(n)))
|
|
|
MAPLE
| Perm2SiteSwap2 := 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 if(0 = ((ip[i]-i) mod n)) then a := [op(a), n]; else a := [op(a), ((ip[i]-i) mod n)]; fi; od; RETURN(a); end;
|
|
|
CROSSREFS
| Cf. A060500 (for avg), A060502.
Sequence in context: A088431 A052304 A049874 * A109129 A188550 A064122
Adjacent sequences: A060498 A060499 A060500 * A060502 A060503 A060504
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Antti Karttunen Mar 22 2001
|
| |
|
|
