Strange plus numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,075: / Line 1,075: @@
 476 492 494 498 </pre>
+=={{header|MAD}}==
+<lang mad>           NORMAL MODE IS INTEGER
+           INTERNAL FUNCTION(X)
+           ENTRY TO SMLPRM.
+           THROUGH TEST, FOR VALUES OF P = 2, 3, 5, 7, 11, 13, 17
+TEST       WHENEVER P.E.X, FUNCTION RETURN 1B
+           FUNCTION RETURN 0B
+           END OF FUNCTION
+           INTERNAL FUNCTION(NN)
+           ENTRY TO STGPLS.
+           N = NN
+           NX = N / 10
+           DA = N - NX * 10
+STEP       DB = DA
+           N = NX
+           NX = N / 10
+           DA = N - NX * 10
+           WHENEVER .NOT.SMLPRM.(DA + DB), FUNCTION RETURN 0B
+           WHENEVER N.L.10, FUNCTION RETURN 1B
+           TRANSFER TO STEP
+           END OF FUNCTION
+           THROUGH TEST, FOR I = 100, 1, I.GE.500
+TEST       WHENEVER STGPLS.(I), PRINT RESULTS I
+           END OF PROGRAM</lang>
+{{out}}
+<pre style='height:50ex;'>I = 111
+I = 112
+I = 114
+I = 116
+I = 120
+I = 121
+I = 123
+I = 125
+I = 129
+I = 141
+I = 143
+I = 147
+I = 149
+I = 161
+I = 165
+I = 167
+I = 202
+I = 203
+I = 205
+I = 207
+I = 211
+I = 212
+I = 214
+I = 216
+I = 230
+I = 232
+I = 234
+I = 238
+I = 250
+I = 252
+I = 256
+I = 258
+I = 292
+I = 294
+I = 298
+I = 302
+I = 303
+I = 305
+I = 307
+I = 320
+I = 321
+I = 323
+I = 325
+I = 329
+I = 341
+I = 343
+I = 347
+I = 349
+I = 383
+I = 385
+I = 389
+I = 411
+I = 412
+I = 414
+I = 416
+I = 430
+I = 432
+I = 434
+I = 438
+I = 470
+I = 474
+I = 476
+I = 492
+I = 494
+I = 498</pre>
 =={{header|Maple}}==
 <lang maple>select(n->(u->isprime(add(u[1..2])) and isprime(add(u[2..3])))(convert(n,base,10)),[$101..499]);</lang>