primes

B4X: Sub Process_Globals Private numbers(10000000) As Boolean Private primes As List End Sub Sub AppStart (Args() As String) Dim n As Long = DateTime.Now primes.Initialize For i = 2 To numbers.Length - 1 If numbers(i) = False Then primes.Add(i) For i2 = 2 * i...