Anonymous user
Positive decimal integers with the digit 1 occurring exactly twice: Difference between revisions
Positive decimal integers with the digit 1 occurring exactly twice (view source)
Revision as of 21:44, 19 December 2021
, 2 years ago→{{header|Julia}}
(Added solution for Action!) |
|||
Line 253:
<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>
=={{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>
| |||