login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


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: A263131 A274206 A214949 * A203814 A280505 A262401

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 27 01:45 EST 2021. Contains 340443 sequences. (Running on oeis4.)