Data update

Task/Legendre-prime-counting-function/FreeBASIC/legendre-prime-counting-function.basic

@@ -0,0 +1,24 @@
+Function isPrime(n As Uinteger) As Boolean
+    Dim As Uinteger i
+    For i = 2 To Sqr(n)
+        If n Mod i = 0 Then Return False
+    Next i
+    Return True
+End Function
+
+Dim As Uinteger n, i, j, count
+Dim Shared As Ulongint primes(1e8)
+n = 1
+For i = 0 To 9
+    count = 0
+    For j = 2 To n
+        If isPrime(j) Then
+            count += 1
+            primes(count) = j
+        End If
+    Next j
+    Print "10^"; i; "  "; count
+    n *= 10
+Next i
+
+Sleep