24

Author

Eric W. Weisstein
June 4, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Numbers/24.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/24.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Making 24 from 3 copies of a digit and mathematical operations

ops={Plus,Power,Subtract,Times,Divide,FromDigits[Flatten[{##}]]&};

l=Table[Outer[#1[d,#2[d,d]]&,Sequence@@Table[ops,{2}]],{d,1.,9}];
{First[#],ops[[#[[2]]]],ops[[#[[3]]]]}&/@Position[l,24.]

l=Table[Outer[#1[d!,#2[d,d]]&,Sequence@@Table[ops,{2}]],{d,1.,9}];
{First[#],ops[[#[[2]]]],ops[[#[[3]]]]}&/@Position[l,24.]

l=Table[Outer[#1[d,#2[d!,d]]&,Sequence@@Table[ops,{2}]],{d,1.,9}];
{First[#],ops[[#[[2]]]],ops[[#[[3]]]]}&/@Position[l,24.]

l=Table[Outer[#1[d,#2[d,d!]]&,Sequence@@Table[ops,{2}]],{d,1.,9}];
{First[#],ops[[#[[2]]]],ops[[#[[3]]]]}&/@Position[l,24.]

l=Table[Outer[#1[d!,#2[d,d!]]&,Sequence@@Table[ops,{2}]],{d,1.,9}];
{First[#],ops[[#[[2]]]],ops[[#[[3]]]]}&/@Position[l,24.]

l=Table[Outer[#1[d,#2[d!,d!]]&,Sequence@@Table[ops,{2}]],{d,1.,9}];
{First[#],ops[[#[[2]]]],ops[[#[[3]]]]}&/@Position[l,24.]

l=Table[Outer[#1[d!,#2[d!,d]]&,Sequence@@Table[ops,{2}]],{d,1.,9}];
{First[#],ops[[#[[2]]]],ops[[#[[3]]]]}&/@Position[l,24.]