Special neighbor primes: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
(add parigp) |
||
Line 368: | Line 368: | ||
<pre>Found 13 special neighbor primes less than 100: |
<pre>Found 13 special neighbor primes less than 100: |
||
(3, 5), (5, 7), (7, 11), (11, 13), (13, 17), (19, 23), (29, 31), (31, 37), (41, 43), (43, 47), (61, 67), (67, 71), (73, 79)</pre> |
(3, 5), (5, 7), (7, 11), (11, 13), (13, 17), (19, 23), (29, 31), (31, 37), (41, 43), (43, 47), (61, 67), (67, 71), (73, 79)</pre> |
||
=={{header|PARI/GP}} |
|||
<lang parigp>for(p1=1,100,p2=nextprime(p1+1); if(isprime(p1)&&p2<100&&isprime(p1+p2-1),print(p1," ",p2," ",p1+p2-1)))</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |