Google Treasure Hunt 2008---Find the Smallest Prime Number

Question:
Find the smallest number that can be expressed as
the sum of 3 consecutive prime numbers,
the sum of 11 consecutive prime numbers,
the sum of 25 consecutive prime numbers,
the sum of 171 consecutive prime numbers,
the sum of 1225 consecutive prime numbers,
and is itself a prime number.

For example, 41 is the smallest prime number that can be expressed as
the sum of 3 consecutive primes (11 + 13 + 17 = 41) and
the sum of 6 consecutive primes (2 + 3 + 5 + 7 + 11 + 13 = 41).

Your answer:

 

 

My solution with VB6

 

1. Dim a(100000000) As Byte, p(10000000) As Long, num As Long, n As Long
2. Sub Getprimes()
3.     Dim i&, j&, k
4.     p(0) = 2    'The 1st prime
5.     k = 10000    'sqrare root of 10^8
6.     n = 100000000    '10^8
7.     For i = 3 To k Step 2
8.         If a(i) = 0 Then
9.             num = num + 1
10.             p(num) = i
11.             For j = i * i To n Step 2 * i    'Eractosthenes
12.                 a(j) = 100    'Not prime number
13.             Next
14.         End If
15.     Next
16.     For i = k + 1 To n Step 2    'List all prime numbers to array p()
17.         If a(i) = 0 Then
18.             num = num + 1
19.             p(num) = i
20.         End If
21.     Next
22. End Sub
24. Private Sub Command1_Click()
25.     Dim s As String, tm As Single
26.     s = InputBox("Please enter numbers:", "Info", "3,11,25,171,1225")    'Input all numbers the question has listed
27.     tm = Timer
28.     Getprimes
29.     s = minprime(s)
30.     tm = Timer - tm
31.     Clipboard.Clear
32.     Clipboard.SetText CStr(s)    'Copy the answer to Clipboard
33.     MsgBox "It cost me about " & Format(tm, "0.0000") & " seconds to find the answer: " & s & vbCrLf & "And it has been copied to the clipboard"
34. End Sub
35. Function minprime(myprimes As String) As Long
36.     Dim i&, j&, sum() As Long, count As Long, primedata
37.     primedata = Split(myprimes, ",")
38.     count = UBound(primedata)
39.     ReDim sum(count)
40.     For i = 0 To count
41.         For j = 1 To primedata(i)    'Small sum of continuous prime numbers
42.             sum(i) = sum(i) + p(j)
43.         Next
44.         If a(sum(i)) < 100 Then a(sum(i)) = a(sum(i)) + 1    'Meet one of the conditions
45.         For j = primedata(i) + 1 To num
46.             sum(i) = sum(i) + p(j) - p(j - primedata(i))
47.             If sum(i) > n Then Exit For
48.             If a(sum(i)) < 100 Then a(sum(i)) = a(sum(i)) + 1    'Meet one of the conditions
49.             If a(sum(i)) = count + 1 Then minprime = sum(i): Exit Function    'Meet all of the conditions,Ok
50.         Next
51.     Next
52. End Function

It returns：

 

6954293