This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A060501 Average of digits of each term in A060495, number of balls in each such siteswap juggling pattern. 6
 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; text; internal format)
 OFFSET 0,3 LINKS 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 * A109129 A304486 A188550 Adjacent sequences:  A060498 A060499 A060500 * A060502 A060503 A060504 KEYWORD nonn AUTHOR Antti Karttunen, Mar 22 2001 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 19 23:31 EDT 2019. Contains 327207 sequences. (Running on oeis4.)