8 lines
313 B
Text
8 lines
313 B
Text
hasPrimeDigitsum(n)=isprime(sumdigits(n)); \\ see A028834 in the OEIS
|
|
|
|
v1 = select(isprime, select(hasPrimeDigitsum, [1..499]));
|
|
v2 = select(hasPrimeDigitsum, select(isprime, [1..499]));
|
|
v3 = select(hasPrimeDigitsum, primes([1, 499]));
|
|
|
|
s=0; forprime(p=2,499, if(hasPrimeDigitsum(p), s++)); s;
|
|
[#v1, #v2, #v3, s]
|