Data update

This commit is contained in:
Ingy döt Net 2023-09-16 17:28:03 -07:00
parent 5af6d93694
commit 796d366b97
455 changed files with 7413 additions and 1900 deletions

View file

@ -1,19 +1,21 @@
proc prime x . r .
for i = 2 to sqrt x
if x mod i = 0
r = 0
break 2
.
func prime n .
if n mod 2 = 0 and n > 2
return 0
.
r = 1
i = 3
while i <= sqrt n
if n mod i = 0
return 0
.
i += 2
.
return 1
.
for i = 2 to 999
call prime i r
if r = 1
if prime i = 1
ind += 1
sum += i
call prime sum r
if r = 1
if prime sum = 1
print ind & ": " & sum
.
.