17 lines
285 B
Text
17 lines
285 B
Text
#include "isprime.bas"
|
|
|
|
Dim As Longint n, k, limit = 10
|
|
Dim As ulongint num
|
|
For n = 1 To limit
|
|
k = -1
|
|
Do
|
|
k += 2
|
|
num = (2 ^ (2 ^ n)) - k
|
|
If isPrime(num) Then
|
|
Print "n = "; n; " k = "; k
|
|
Exit Do
|
|
End If
|
|
Loop
|
|
Next
|
|
|
|
Sleep
|