RosettaCodeData/Task/Summarize-primes/BASIC256/summarize-primes.basic

#include "isprime.kbs"

print 1, 2, 2
sum = 2
n = 1
for i = 3 to 999 step 2
	if isPrime(i) then
		sum += i
		n += 1
		if isPrime(sum) then
			print n, i, sum
		end if
	end if
next i