Positive decimal integers with the digit 1 occurring exactly twice: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
Line 253: | Line 253: | ||
<pre> |
<pre> |
||
[11, 101, 110, 112, 113, 114, 115, 116, 117, 118, 119, 121, 131, 141, 151, 161, 171, 181, 191, 211, 311, 411, 511, 611, 711, 811, 911] |
[11, 101, 110, 112, 113, 114, 115, 116, 117, 118, 119, 121, 131, 141, 151, 161, 171, 181, 191, 211, 311, 411, 511, 611, 711, 811, 911] |
||
</pre> |
|||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>sol = Cases[Range[999], _?(Count[IntegerDigits@#, 1] == 2 &)]; |
|||
Partition[sol, Max[FactorInteger[Length@sol][[All, 1]]]] // TableForm</lang> |
|||
{{out}}<pre> |
|||
11 101 110 |
|||
112 113 114 |
|||
115 116 117 |
|||
118 119 121 |
|||
131 141 151 |
|||
161 171 181 |
|||
191 211 311 |
|||
411 511 611 |
|||
711 811 911 |
|||
</pre> |
</pre> |
||