Data update
This commit is contained in:
parent
5af6d93694
commit
796d366b97
455 changed files with 7413 additions and 1900 deletions
|
|
@ -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
|
||||
.
|
||||
.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue