Jump to content

Find adjacent primes which differ by a square integer: Difference between revisions

Find adjacent primes which differ by a square integer (view source)

Revision as of 19:39, 9 April 2022

4 bytes removed ,  2 years ago
→‎{{header|Perl}}: fixed code and output
(Added Go)
(→‎{{header|Perl}}: fixed code and output)
Line 645:
<lang perl>#!/usr/bin/perl
 
use strict; # https://rosettacode.org/wiki/Find_adjacents_primes_which_difference_is_square_integer
use warnings;
use ntheory qw( primes is_square );
 
my $primeref = primes( 1e6 );
for my $i (1 .. $#$primeref ) {
is_square (my $diff) and print= "$primeref->[$i + 1] - $primeref->[$i - 1]) => $diff\n"36 or next;▼
{
(my is_square($diff) =and print "$primeref->[$i] - $primeref->[$i - 1]) >= 36 or next$diff\n";
}</lang>▼
▲ is_square($diff) and print "$primeref->[$i + 1] - $primeref->[$i - 1] = $diff\n";
▲ }</lang>
{{out}}
<pre>
8975989753 - 89689 = 64
107449107441 - 107377 = 64
288649288647 - 288583 = 64
368029368021 - 367957 = 64
381169381167 - 381103 = 64
396871396833 - 396733 = 100
400837400823 - 400759 = 64
445433445427 - 445363 = 64
623209623171 - 623107 = 64
625777625763 - 625699 = 64
637073637067 - 637003 = 64
710779710777 - 710713 = 64
725293725273 - 725209 = 64
779489779477 - 779413 = 64
801949801947 - 801883 = 64
803819803813 - 803749 = 64
821747821741 - 821677 = 64
832591832583 - 832519 = 64
838351838349 - 838249 = 100
844847844841 - 844777 = 64
883877883871 - 883807 = 64
912173912167 - 912103 = 64
919519919511 - 919447 = 64
954829954827 - 954763 = 64
981889981887 - 981823 = 64
997879997877 - 997813 = 64
</pre>
 
Trizen
2,747

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/317835"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information