id:A060501 - OEIS Search Results

Search: id:A060501

Displaying 1-1 of 1 results found.

page 1

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

+0
4

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; listen)

	OFFSET	`0,3`
	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: A088431 A052304 A049874 this_sequence A109129 A064122 A057526` `Adjacent sequences: A060498 A060499 A060500 this_sequence A060502 A060503 A060504`
	KEYWORD	`nonn`
	AUTHOR	`Antti Karttunen Mar 22 2001`

page 1

Search completed in 0.002 seconds

Last modified November 27 22:38 EST 2009. Contains 167602 sequences.

AT&T Labs Research