A060501 Average of digits of each term in A060495, number of balls in each such siteswap juggling pattern.

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

Offset

0,3

Links

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

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: A254661 A052304 A049874 * A355661 A109129 A304486

Adjacent sequences: A060498 A060499 A060500 * A060502 A060503 A060504

Keyword

nonn

Author

Antti Karttunen, Mar 22 2001

Status

approved