The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A067453 a(n) = binomial(a,b) where a>=b and one of a and b is the product of the nonzero decimal digits of n and the other is the sum of the decimal digits of n. 1
 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 3, 1, 6, 28, 120, 495, 2002, 8008, 31824, 1, 4, 6, 84, 792, 6435, 48620, 352716, 2496144, 17383860, 1, 5, 28, 792, 12870, 167960, 1961256, 21474180, 225792840, 2310789600, 1, 6, 120, 6435 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,11 COMMENTS Terms from Robert G. Wilson v. LINKS Vincenzo Librandi, Table of n, a(n) for n = 0..1000 MATHEMATICA a = {}; Do[p = Apply[Times, IntegerDigits[n]]; s = Apply[Plus, IntegerDigits[n]]; a = Append[a, Binomial[Max[p, s], Min[p, s]]], {n, 1, 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 Sequence in context: A349315 A274206 A214949 * A203814 A346393 A360074 Adjacent sequences: A067450 A067451 A067452 * A067454 A067455 A067456 KEYWORD base,easy,nonn AUTHOR Amarnath Murthy, Feb 05 2002 EXTENSIONS Definition corrected by Harvey P. Dale, Apr 23 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 4 03:55 EDT 2023. Contains 363118 sequences. (Running on oeis4.)