Imports System
Public Module Module1
Public Sub Main()
FindThePrime
End Sub
Sub FindThePrime()
Dim anNums(49) as integer
anNums(0) = 38199
anNums(1) = 49602
anNums(2) = 40691
anNums(3) = 48958
anNums(4) = 54383
anNums(5) = 56420
anNums(6) = 28952
anNums(7) = 55293
anNums(8) = 32501
anNums(9) = 25900
anNums(10) = 65611
anNums(11) = 10486
anNums(12) = 29288
anNums(13) = 22610
anNums(14) = 62328
anNums(15) = 56420
anNums(16) = 6692
anNums(17) = 5068
anNums(18) = 51527
anNums(19) = 45374
anNums(20) = 48097
anNums(21) = 6328
anNums(22) = 1771
anNums(23) = 61460
anNums(24) = 1232
anNums(25) = 57260
anNums(26) = 42420
anNums(27) = 49651
anNums(28) = 63448
anNums(29) = 37049
anNums(30) = 7826
anNums(31) = 5166
anNums(32) = 54502
anNums(33) = 23436
anNums(34) = 46382
anNums(35) = 60676
anNums(36) = 28210
anNums(37) = 21210
anNums(38) = 12719
anNums(39) = 33257
anNums(40) = 57645
anNums(41) = 67431
anNums(42) = 22232
anNums(43) = 13013
anNums(44) = 27041
anNums(45) = 36218
anNums(46) = 8666
anNums(47) = 9856
anNums(48) = 17458
anNums(49) = 42182
For i as integer = 0 to 49
next
dim n1 as integer
dim n2 as integer
do until n1 <> 0
n2 += 1
n1 = anNums(n2) mod 7
loop
console.writeline(anNums(n2))
End sub
End Module