Magnanimous numbers: Difference between revisions
Content added Content deleted
Line 1,002: | Line 1,002: | ||
[486685, 488489, 515116, 533176, 551558, 559952, 595592, 595598, 600881, 602081] |
[486685, 488489, 515116, 533176, 551558, 559952, 595592, 595598, 600881, 602081] |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>Clear[MagnanimousNumberQ] |
|||
MagnanimousNumberQ[Alternatives @@ Range[0, 9]] = True; |
|||
MagnanimousNumberQ[n_Integer] := AllTrue[Range[IntegerLength[n] - 1], PrimeQ[Total[FromDigits /@ TakeDrop[IntegerDigits[n], #]]] &] |
|||
sel = Select[Range[0, 1000000], MagnanimousNumberQ]; |
|||
sel[[;; 45]] |
|||
sel[[241 ;; 250]] |
|||
sel[[391 ;; 400]]</lang> |
|||
{{out}} |
|||
<pre>{0,1,2,3,4,5,6,7,8,9,11,12,14,16,20,21,23,25,29,30,32,34,38,41,43,47,49,50,52,56,58,61,65,67,70,74,76,83,85,89,92,94,98,101,110} |
|||
{17992,19972,20209,20261,20861,22061,22201,22801,22885,24407} |
|||
{486685,488489,515116,533176,551558,559952,595592,595598,600881,602081}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |