'Craft Basic may only calculate up to 9

let n = 9
let p = 1

do
	let p = p + 2

	if prime(p) then

		let w = (2 ^ p + 1) / 3

		if prime(w) then

			let c = c + 1
			print tab, c, tab, p, tab, w

		endif

	endif

	title p

	wait

loop c < n