Strange plus numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add VTL-2) |
|||
Line 1,429: | Line 1,429: | ||
65 strange_plus numbers found: 111,112,114,116,120,...,474,476,492,494,498 |
65 strange_plus numbers found: 111,112,114,116,120,...,474,476,492,494,498 |
||
</pre> |
</pre> |
||
=={{header|Picat}}== |
|||
<lang Picat>main => |
|||
L = [N : N in 100..500, S = N.to_string.map(to_int), |
|||
prime(S[1]+S[2]), |
|||
prime(S[2]+S[3])], |
|||
Len = L.len, |
|||
foreach({N,I} in zip(L,1..Len)) |
|||
printf("%3d%s",N,cond(I mod 10 == 0, "\n", " ")) |
|||
end, |
|||
nl, |
|||
println(len=Len)</lang> |
|||
{{out}} |
|||
<pre>111 112 114 116 120 121 123 125 129 141 |
|||
143 147 149 161 165 167 202 203 205 207 |
|||
211 212 214 216 230 232 234 238 250 252 |
|||
256 258 292 294 298 302 303 305 307 320 |
|||
321 323 325 329 341 343 347 349 383 385 |
|||
389 411 412 414 416 430 432 434 438 470 |
|||
474 476 492 494 498 |
|||
len = 65</pre> |
|||
=={{header|PL/I}}== |
=={{header|PL/I}}== |