Special neighbor primes: Difference between revisions
add parigp
(add FreeBASIC) |
(add parigp) |
||
Line 368:
<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>
=={{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}}==
| |||