A287150 Fairest turn sequence for 3 players where the probability of a win for a player on his turn approaches 0.
0, 1, 2, 2, 1, 0, 2, 1, 0, 0, 1, 2, 1, 2, 0, 0, 2, 1, 0, 2, 1, 1, 2, 0, 2, 1, 0, 0, 1, 2, 1, 0, 2, 2, 0, 1, 0, 2, 1, 1, 2, 0, 2, 1, 0, 0, 1, 2, 1, 0, 2, 2, 0, 1, 0, 2, 1, 1, 2, 0, 1, 2, 0, 0, 2, 1, 0, 2, 1, 1, 2, 0, 2, 1, 0, 0, 1, 2, 0, 1, 2, 2, 1, 0, 2, 1, 0, 0, 1, 2, 1, 0, 2, 2, 0, 1, 2, 0, 1, 1, 0, 2, 1, 0, 2, 2, 0, 1, 0, 2, 1, 1, 2, 0, 1, 2, 0, 0, 2, 1
Offset: 0
Keywords
Links
- Joshua Cooper and Aaron Dutle, Greedy Galois Games, Amer. Math. Monthly, 120 (2013), 441-451, arXiv:1110.1137 [math.CO].
- Daniel Hug, Generate fairest turn sequence for n players (web app written in JavaScript)
Crossrefs
Cf. A010060.
Programs
-
Mathematica
n=3; a=Range[n]; pw=(1-p)^(Range[n]-1)*p; Do[ next = First[Select[Range[n], And@@NonNegative/@Limit[Sign[pw-pw[[#]]], p->0]&, 1]]; AppendTo[a, next]; pw[[next]]+=p*(1-p)^k , {k, n, 50}]; a-1 (* Andrey Zabolotskiy, Jun 05 2017 *)
Comments