A228650 Numbers k such that if an urn contains k balls, with at least one each of three colors, there exists a combination of the three colors such that it is equally probable for three balls randomly selected from the urn to all be either the same color or distinct colors.
6, 8, 11, 12, 46, 57, 66, 120, 121, 145, 156, 162, 166, 217, 372, 386, 557, 596, 638, 750, 866, 1025, 1038, 1201, 1396, 1857, 2042, 2081, 2146, 2263, 2301, 2452, 2836, 2900, 2926, 2991, 3026, 3053, 3288, 3368, 3963, 3970, 4511, 4656, 5006, 5492, 5890, 5952
Offset: 1
Keywords
Examples
46 is a member of the sequence because if the urn contains 6 red, 18 green and 22 blue balls, then there are 6 * 18 * 22 = 2376 selections of three balls with distinct colors, and ((6 * 5 * 4) + (18 * 17 * 16) + (22 * 21 * 20)) / 3! = 2376 selections of three balls all the same color, and 6 + 18 + 22 = 46.
Programs
-
Pascal
program a228650; var p: array[1..6000] of int64; b1, b2, b3, k: int64; n, s: integer; begin k:=0; repeat inc(k); p[k] := (k * (k - 1) * (k - 2)) div 6; until k = 6000; n := 0; k := 2; repeat inc(k); s := 0; b1 := 0; repeat inc(b1); b2 := b1 - 1; b3 := k - (b1 + b2); repeat inc(b2); dec(b3); if (b3 >= b2) and (b1 * b2 * b3 = p[b1] + p[b2] + p[b3]) then begin inc(n); inc(s); writeln(n,' ',k); end; until (b3 <= b2) or (s > 0); until (3 * b1 >= k) or (s > 0); until k = 6000; end.
Comments