id:A060502 - OEIS Search Results

Search: id:A060502

Displaying 1-1 of 1 results found.

page 1

Average of digits of each term in A060498, number of balls in each such siteswap juggling pattern.

+0
4

0, 1, 1, 2, 1, 1, 1, 2, 2, 3, 2, 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 3, 2, 2, 2, 3, 3, 4, 3, 3, 2, 3, 2, 3, 3, 3, 2, 2, 3, 3, 2, 2, 1, 2, 2, 3, 2, 2, 1, 2, 2, 3, 2, 2, 2, 3, 2, 3, 3, 3, 2, 2, 3, 3, 2, 2, 1, 2, 1, 2, 2, 2, 2, 3, 2, 3, 3, 3, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 3 (list; graph; listen)

	OFFSET	`0,4`
	FORMULA	`a(n) = avg(Perm2SiteSwap3(PermUnrank3R(n)))`
	MAPLE	`Perm2SiteSwap3 := 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), 0]; else a := [op(a), n-((ip[i]-i) mod n)]; fi; od; RETURN(a); end;`
	CROSSREFS	`A060500 gives average.` `Sequence in context: A050431 A051574 A029386 this_sequence A035439 A059111 A103502` `Adjacent sequences: A060499 A060500 A060501 this_sequence A060503 A060504 A060505`
	KEYWORD	`nonn`
	AUTHOR	`Antti Karttunen Mar 22 2001`

page 1

Search completed in 0.002 seconds

Last modified September 5 17:15 EDT 2008. Contains 143476 sequences.

AT&T Labs Research