Factorions: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
No edit summary |
||
Line 660: | Line 660: | ||
Factorians for base 12: [1, 2] |
Factorians for base 12: [1, 2] |
||
</pre> |
</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[FactorionQ] |
|||
FactorionQ[n_,b_:10]:=Total[IntegerDigits[n,b]!]==n |
|||
Select[Range[1500000],FactorionQ[#,9]&] |
|||
Select[Range[1500000],FactorionQ[#,10]&] |
|||
Select[Range[1500000],FactorionQ[#,11]&] |
|||
Select[Range[1500000],FactorionQ[#,12]&]</lang> |
|||
{{out}} |
|||
<pre>{1, 2, 41282} |
|||
{1, 2, 145, 40585} |
|||
{1, 2, 26, 48, 40472} |
|||
{1, 2}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |