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

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

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

Missing a(0)=1 inserted by Sean A. Irvine, Dec 16 2023

Status

approved