Unprimeable numbers: Difference between revisions
Content added Content deleted
mNo edit summary |
No edit summary |
||
Line 1,205: | Line 1,205: | ||
8 is: 208 |
8 is: 208 |
||
9 is: 212,159</pre> |
9 is: 212,159</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[Unprimeable] |
|||
Unprimeable[in_Integer] := Module[{id, new, pos}, |
|||
id = IntegerDigits[in]; |
|||
pos = Catenate@Table[ |
|||
Table[ |
|||
new = id; |
|||
new[[d]] = n; |
|||
new |
|||
, |
|||
{n, 0, 9} |
|||
] |
|||
, |
|||
{d, Length[id]} |
|||
]; |
|||
pos //= Map[FromDigits]; |
|||
NoneTrue[pos, PrimeQ] |
|||
] |
|||
res = {}; |
|||
PrintTemporary[Dynamic[{Length[res], i}]]; |
|||
i = 0; |
|||
While[Length[res] < 600, |
|||
If[Unprimeable[i], |
|||
AppendTo[res, i] |
|||
]; |
|||
i++ |
|||
]; |
|||
PrintTemporary[Dynamic[{lastdig, i}]]; |
|||
out = Table[ |
|||
i = lastdig; |
|||
While[! Unprimeable[i], |
|||
i += 10 |
|||
]; |
|||
i |
|||
, |
|||
{lastdig, 0, 9} |
|||
]; |
|||
res[[;; 35]] |
|||
res[[600]] |
|||
lastdigit = IntegerDigits /* Last; |
|||
Print["Least unprimeable number ending in ", lastdigit[#], ": ", #] & /@ SortBy[out, lastdigit];</lang> |
|||
{{out}} |
|||
<pre>{200,204,206,208,320,322,324,325,326,328,510,512,514,515,516,518,530,532,534,535,536,538,620,622,624,625,626,628,840,842,844,845,846,848,890} |
|||
5242 |
|||
Least unprimeable number ending in 0: 200 |
|||
Least unprimeable number ending in 1: 595631 |
|||
Least unprimeable number ending in 2: 322 |
|||
Least unprimeable number ending in 3: 1203623 |
|||
Least unprimeable number ending in 4: 204 |
|||
Least unprimeable number ending in 5: 325 |
|||
Least unprimeable number ending in 6: 206 |
|||
Least unprimeable number ending in 7: 872897 |
|||
Least unprimeable number ending in 8: 208 |
|||
Least unprimeable number ending in 9: 212159</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |