163
167
263
269
367
461
463
467
563
569
601
607
613
617
619
631
641
643
647
653
659
673
677
683
691
761
769
863
967
1663
1667
1669
2663
4663
5669
6067
6163
6263
6269
6361
6367
6469
6563
6569
6607
6619
6637
6653
6659
6673
6679
6689
6691
6761
6763
6863
6869
6961
6967
7669
8663
8669
9661
16661
26669
46663
56663
60661
61667
63667
64661
64663
64667
66067
66161
66169
66361
66463
66467
66569
66601
66617
66629
66643
66653
66683
66697
66763
66863
68669
69661
76667
96661
96667
166667
166669
266663
616669
626663
646669
660661
661663
663661
664661
664663
664667
664669
666067
666167
666269
666461
666467
666607
666637
666643
666647
666649
666671
666683
666697
666769
669661
669667
676661
686669
966661
2666663
3666661
4666663
4666667
6066661
6166669
6466661
6566663
6616667
6636661
6636667
6646663
6646669
6661661
6664661
6664667
6665669
6666061
6666167
6666269
6666467
6666563
6666613
6666617
6666679
6666683
6666689
6666761
6666769
6667669
6676661
6676667
6676669
6686663
6696661
6766667
6866663
7666661
7666667
7666669
9666661
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For l = 3 To 7
s0$ = String$(l, "6")
For digs = 0 To 99
d$ = Right("000" + LTrim(Str(digs)), 2)
If InStr(d, "6") = 0 Then
For p1 = 1 To l - 1
For p2 = p1 + 1 To l
s$ = s0
Mid(s, p1, 1) = Left(d, 1)
Mid(s, p2, 1) = Right(d, 1)
n = Val(s)
If prmdiv(n) = n And Left(s, 1) <> "0" Then
Text1.Text = Text1.Text & mform(n, "#######0") & crlf
End If
Next
Next
End If
Next
Next l
Text1.Text = Text1.Text & crlf & " done"
End Sub
Function prmdiv(num)
Dim n, dv, q
If num = 1 Then prmdiv = 1: Exit Function
n = Abs(num): If n > 0 Then limit = Sqr(n) Else limit = 0
If limit <> Int(limit) Then limit = Int(limit + 1)
dv = 2: GoSub DivideIt
dv = 3: GoSub DivideIt
dv = 5: GoSub DivideIt
dv = 7
Do Until dv > limit
GoSub DivideIt: dv = dv + 4 '11
GoSub DivideIt: dv = dv + 2 '13
GoSub DivideIt: dv = dv + 4 '17
GoSub DivideIt: dv = dv + 2 '19
GoSub DivideIt: dv = dv + 4 '23
GoSub DivideIt: dv = dv + 6 '29
GoSub DivideIt: dv = dv + 2 '31
GoSub DivideIt: dv = dv + 6 '37
Loop
If n > 1 Then prmdiv = n
Exit Function
DivideIt:
Do
q = Int(n / dv)
If q * dv = n And n > 0 Then
prmdiv = dv: Exit Function
Else
Exit Do
End If
Loop
Return
End Function
Function mform$(x, t$)
a$ = Format$(x, t$)
If Len(a$) < Len(t$) Then a$ = Space$(Len(t$) - Len(a$)) & a$
mform$ = a$
End Function
In the other spirit
