Napr Excel (ale pár minút to trvá - počet vygenerovaných, na duplicitu odkontrolovaných kombinácií sa zapisuje do bunky B2)

Sub Komb()

Dim Komb As String
Dim Prvok As String


Columns("A:A").NumberFormat = "@"

MinValue = 1
MaxValue = 2

Randomize

For j = 1 To 4000
Range("B1") = j
    
Opakuj:
    For i = 1 To 34
        Prvok = Format(Int((MaxValue - MinValue + 1) * Rnd) + MinValue, "@")
        Komb = Komb & Prvok
    Next i
    
    Range("A" & j) = Komb
    
    If j > 1 Then
        For k = 1 To j - 1
            If Range("A" & j) = Range("A" & k) Then GoTo Opakuj
        Next k
    End If
    
        Komb = ""
Next j

MsgBox "Hotovo"

End Sub

P.S. určite existujú rafinované, na rýchlosť vykonania neporovnateľne lepšie algoritmy, ale keďže ich nepoznám, tak som napísal postup, akým by to manuálne robil normálny človek