RosettaCodeData/Task/Additive-primes/Pluto/additive-primes.pluto
2026-04-30 12:34:36 -04:00

14 lines
351 B
Text

local int = require "int"
local fmt = require "fmt"
print("Additive primes less than 500:")
local primes = int.primes(499)
local count = 0
for primes as p do
if int.isprime(int.digstat(p)[2]) do
count += 1
fmt.write("%3d ", p)
if count % 10 == 0 then print() end
end
end
print($"\n\n{count} additive primes found.")