Anonymous user
Ludic numbers: Difference between revisions
fixed
(adding 2nd version) |
(fixed) |
||
Line 1,698:
=={{header|PL/I}}==
<lang PL/I>Ludic_numbers: procedure options (main); /* 18 April 2014 */
declare V(2:22000) fixed, L(2200) fixed;
Line 1,733:
put skip;
i = 1;
put edit ('(', L(1), L(3), L(5), ') ' ) (A, 3 F(4), A);
do i = 1 by 1 while (L(i+2) <= 250);
if (L(i) = L(i+1) - 2) & (L(i) = L(i+2) - 6) then
Line 1,759 ⟶ 1,760:
21475 21481 21487 21493 21503 21511
Triples are:
( 1 3 7) ( 5 7 11) ( 11 13 17) ( 23 25 29) ( 41 43 47)
( 173 175 179) ( 221 223 227) ( 233 235 239)</pre>
| |||