Find adjacent primes which differ by a square integer: Difference between revisions
Content added Content deleted
(Added Sidef) |
|||
Line 636: | Line 636: | ||
Square difference 256: 41 found. Example: (1872851947, 1872852203). |
Square difference 256: 41 found. Example: (1872851947, 1872852203). |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ps = Prime[Range[PrimePi[10^6]]]; |
|||
ps = Partition[ps, 2, 1]; |
|||
ps = {#1, #2, #2 - #1} & @@@ ps; |
|||
ps //= Select[Extract[{3}]/*GreaterThan[36]]; |
|||
ps //= Select[Extract[{3}]/*Sqrt/*IntegerQ]; |
|||
ps // Grid</lang> |
|||
{{out}} |
|||
<pre>89689 89753 64 |
|||
107377 107441 64 |
|||
288583 288647 64 |
|||
367957 368021 64 |
|||
381103 381167 64 |
|||
396733 396833 100 |
|||
400759 400823 64 |
|||
445363 445427 64 |
|||
623107 623171 64 |
|||
625699 625763 64 |
|||
637003 637067 64 |
|||
710713 710777 64 |
|||
725209 725273 64 |
|||
779413 779477 64 |
|||
801883 801947 64 |
|||
803749 803813 64 |
|||
821677 821741 64 |
|||
832519 832583 64 |
|||
838249 838349 100 |
|||
844777 844841 64 |
|||
883807 883871 64 |
|||
912103 912167 64 |
|||
919447 919511 64 |
|||
954763 954827 64 |
|||
981823 981887 64 |
|||
997813 997877 64</pre> |
|||
=={{header|PARI/GP}}== |
=={{header|PARI/GP}}== |