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