RosettaCodeData/Task/Summarize-primes/Yabasic/summarize-primes.basic
2023-07-01 13:44:08 -04:00

12 lines
227 B
Text

//import isprime
print 1, chr$(9), 2, chr$(9), 2
sum = 2
n = 1
for i = 3 to 999 step 2
if isPrime(i) then
sum = sum + i
n = n + 1
if isPrime(sum) print n, chr$(9), i, chr$(9), sum
fi
next i
end