I would like to make a MMA version of this game.
Modifying @belisariusisforth's code from this answer, I get
DynamicModule[{x = 0, s = 6},
Grid @
Map[
Button[ToString @ #, x = #,
Background ->
Dynamic[
If[MemberQ[Divisors[x], #] && x != #,
Lighter @ Red,
If[x == #, Lighter@Blue, Lighter@Lighter@Gray]]],
ImageSize -> 30] &,
Partition[Range@(s^2), s], {2}]]
which gives the desired effect for the first move, but I have no idea how to go about keeping the game going.
Update
As @belisariusisforth pointed out below, any pointers on entering 2 numbers, one for player one and one for player 2, i.e., just the first two steps of the game would be much appreciated :)