login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

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 * 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.

License Agreements, Terms of Use, Privacy Policy. .

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