McNugget Numbers

Author

Eric W. Weisstein
May 2, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/McNuggetNumber.nb.

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

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

Code

McNuggetQ[n_,l_:{6,9,20}]:=FrobeniusSolve[l,n,1]==={}

Enumeration

Select[Range[1000],McNuggetQ]

FrobeniusNumber[{6,9,20}]

TableForm[DeleteCases[Table[{n,FrobeniusSolve[{6,9,20},n]},{n,30}],{_,{}}],TableDepth->2]

Select[Range[1000],McNuggetQ[#,{4,6,9,20}]&]

FrobeniusNumber[{4,6,9,20}]