|
| |
|
|
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.
|
|
0
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,11
|
|
|
COMMENTS
| Program and terms from Robert G. Wilson.
|
|
|
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
|
|
|
CROSSREFS
| Sequence in context: A190599 A010889 A053831 * A203814 A118541 A084905
Adjacent sequences: A067450 A067451 A067452 * A067454 A067455 A067456
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 05 2002
|
| |
|
|
