Strange numbers: Difference between revisions
Content added Content deleted
(Stretch Goal) |
|||
Line 1,378: | Line 1,378: | ||
496 |
496 |
||
497</pre> |
497</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica> |
|||
Select[Range[101, 499], |
|||
AllTrue[Partition[IntegerDigits[#], 2, 1], Differences /* First /* PrimeQ] & |
|||
]</lang> |
|||
{{out}} |
|||
<pre>{130,131,135,136,138,141,142,146,147,149,161,163,164,168,169,181,183,185,186,202,203,205,207,241,242,246,247,249,250,252,253,257,258,270,272,274,275,279,292,294,296,297,302,303,305,307,313,314,316,318,350,352,353,357,358,361,363,364,368,369,381,383,385,386,413,414,416,418,420,424,425,427,429,461,463,464,468,469,470,472,474,475,479,492,494,496,497}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |