Quadrat special primes: Difference between revisions
Content added Content deleted
No edit summary |
imported>Maxima enthusiast No edit summary |
||
Line 811: | Line 811: | ||
8363 10667 11243 11279 11423 12323 12647 |
8363 10667 11243 11279 11423 12323 12647 |
||
12791 13367 13691 14591 14627 14771 15671</pre> |
12791 13367 13691 14591 14627 14771 15671</pre> |
||
=={{header|Maxima}}== |
|||
<syntaxhighlight lang="maxima"> |
|||
quadrat(n):=block(aux:next_prime(n),while not integerp(sqrt(aux-n)) do aux:next_prime(aux),aux)$ |
|||
block(a:2,append([a],makelist(a:quadrat(a),48))); |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
[2,3,7,11,47,83,227,263,587,911,947,983,1019,1163,1307,1451,1487,1523,1559,2459,3359,4259,4583,5483,5519,5843,5879,6203,6779,7103,7247,7283,7607,7643,8219,8363,10667,11243,11279,11423,12323,12647,12791,13367,13691,14591,14627,14771,15671] |
|||
</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |