| start result |
start := #(827392 65536 122880).
result := start max.
start combinations: 2 atATimeDo: [:pair |
    (pair first - pair second isDivisibleBy: 3) ifTrue: [result := result min: pair max]].
^result