This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A060501 #3 May 01 2014 02:46:43 %S A060501 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 A060501 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 A060501 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 A060501 Average of digits of each term in A060495, number of balls in each such siteswap juggling pattern. %F A060501 a(n) = avg(Perm2SiteSwap2(PermUnrank3R(n))) %p A060501 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 A060501 Cf. A060500 (for avg), A060502. %K A060501 nonn %O A060501 0,3 %A A060501 _Antti Karttunen_, Mar 22 2001