OFFSET
0,12
COMMENTS
Terms from Robert G. Wilson v.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000 [Corrected by Sean A. Irvine, Dec 16 2023]
MATHEMATICA
a = {}; Do[p = Apply[Times, IntegerDigits[n]]; s = Apply[Plus, IntegerDigits[n]]; a = Append[a, Binomial[Max[p, s], Min[p, s]]], {n, 0, 60}]; a (* Robert G. Wilson v *)
bin[n_]:=Module[{idn=IntegerDigits[n], a, b}, a=Times@@(idn/.{0->1}); b= Total[ idn]; If[a>b, Binomial[a, b], Binomial[b, a]]]; Array[bin, 60] (* Harvey P. Dale, Apr 23 2014 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 05 2002
EXTENSIONS
Definition corrected by Harvey P. Dale, Apr 23 2014
Missing a(0)=1 inserted by Sean A. Irvine, Dec 16 2023
STATUS
approved