Additive primes: Difference between revisions
Content added Content deleted
imported>Maxima enthusiast No edit summary |
|||
Line 2,388: | Line 2,388: | ||
{{out}} |
{{out}} |
||
<pre>{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}</pre> |
<pre>{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}</pre> |
||
=={{header|Maxima}}== |
|||
<syntaxhighlight lang="maxima"> |
|||
/* Function that returns a list of digits given a nonnegative integer */ |
|||
decompose(num) := block([digits, remainder], |
|||
digits: [], |
|||
while num > 0 do |
|||
(remainder: mod(num, 10), |
|||
digits: cons(remainder, digits), |
|||
num: floor(num/10)), |
|||
digits |
|||
)$ |
|||
/* Routine that extracts from primes between 2 and 500, inclusive, the additive primes */ |
|||
block( |
|||
primes(2,500), |
|||
sublist(%%,lambda([x],primep(apply("+",decompose(x)))))); |
|||
/* Number of additive primes in the rank */ |
|||
length(%); |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
[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] |
|||
54 |
|||
</pre> |
|||
=={{header|Modula-2}}== |
=={{header|Modula-2}}== |