Factorial primes: Difference between revisions
Content added Content deleted
(simplified Quackery entry) |
imported>Maxima enthusiast No edit summary |
||
Line 969: | Line 969: | ||
9: 12! - 1 = 479001599 |
9: 12! - 1 = 479001599 |
||
10: 14! - 1 = 87178291199 |
10: 14! - 1 = 87178291199 |
||
</pre> |
|||
=={{header|Maxima}}== |
|||
<syntaxhighlight lang="maxima"> |
|||
block([i:1,count:0,result:[]], |
|||
while count<10 do (if primep(i!-1) or primep(i!+1) then (result:endcons(i,result),count:count+1),i:i+1), |
|||
result:map(lambda([x],[x,x!-1,x!+1]),result), |
|||
append(map(lambda([x],if primep(x[2]) then [x[1],x[2],"subtracted"]),result),map(lambda([x],if primep(x[3]) then [x[1],x[3],"added"]),result)), |
|||
unique(%%), |
|||
firstn(%%,10); |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
[[1,2,"added"],[2,3,"added"],[3,5,"subtracted"],[3,7,"added"],[4,23,"subtracted"],[6,719,"subtracted"],[7,5039,"subtracted"],[11,39916801,"added"],[12,479001599,"subtracted"],[14,87178291199,"subtracted"]] |
|||
</pre> |
</pre> |
||