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

%I #3 May 01 2014 02:46:43

%S 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,

%T 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,

%U 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

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

%F a(n) = avg(Perm2SiteSwap2(PermUnrank3R(n)))

%p 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;

%Y Cf. A060500 (for avg), A060502.

%K nonn

%O 0,3

%A _Antti Karttunen_, Mar 22 2001