// Additive primes: primes whose sum of digits is also prime
// Check if a number is prime
fun isPrime(n: UInt): Boolean {
if (n < 2u) return false
if (n % 2u == 0u) return n == 2u
if (n % 3u == 0u) return n == 3u
var i = 5u
while (i * i <= n) {
if (n % i == 0u) return false
i += 2u
if (n % i == 0u) return false
i += 4u
}
return true
}
// Compute the sum of digits of a number
fun sumDigits(n: UInt): UInt {
var x = n
var sum = 0u
while (x > 0u) {
sum += x % 10u
x /= 10u
}
return sum
}
// Check if a number is an additive prime
fun isAdditivePrime(n: UInt): Boolean =
isPrime(n) && isPrime(sumDigits(n))
fun main() {
val top = 500u
var count = 0
val line = StringBuilder()
for (n in 1u until top) {
if (isAdditivePrime(n)) {
line.append("%3d ".format(n.toInt()))
count++
if (count % 10 == 0) {
println(line.toString().trimEnd())
line.clear()
}
}
}
if (line.isNotEmpty()) {
println(line.toString().trimEnd())
}
println()
println("Total additive primes = $count")
}
/*
run:
2 3 5 7 11 23 29 41 43 47
61 67 83 89 101 113 131 137 139 151
157 173 179 191 193 197 199 223 227 229
241 263 269 281 283 311 313 317 331 337
353 359 373 379 397 401 409 421 443 449
461 463 467 487
Total additive primes = 54
*/
