14 lines
248 B
Text
14 lines
248 B
Text
|
link factors
|
||
|
|
|
||
|
|
procedure main(A)
|
||
|
|
limit := \A[1] | 500
|
||
|
|
every p := prime() do
|
||
|
|
if p < 500 then writes(" ",additive(p)) else break
|
||
|
|
write()
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure additive(a)
|
||
|
|
a ? (sum := 0, while sum +:= move(1))
|
||
|
|
return (isprime(sum),a)
|
||
|
|
end
|