|
| |
|
|
A066600
|
|
Sum of the digits in the n-th row of Pascal's triangle.
|
|
2
| |
|
|
1, 2, 4, 8, 16, 14, 28, 38, 67, 80, 43, 86, 127, 164, 94, 152, 178, 248, 298, 362, 337, 332, 385, 446, 451, 398, 499, 602, 574, 698, 703, 794, 805, 854, 1015, 1040, 1135, 1226, 1201, 1286, 1330, 1400, 1531, 1640, 1687, 1754, 1861, 2102, 2161, 2450, 2074
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,1000
|
|
|
EXAMPLE
| The 7-th row in the Pascal's triangle is 1, 7, 21, 35, 35, 21, 7, 1 and the sum of the digits is 38 hence a(7) = 38.
|
|
|
MATHEMATICA
| f[n_] := Block[{m = s = 0}, While[m < n + 1, s = s + Apply[ Plus, IntegerDigits[ Binomial[n, m]]]; m++ ]; Return[s]]; Table[ f[n], {n, 0, 50}]
|
|
|
PROG
| (PARI) SumD(x)= { local(s=0); while (x>9, s+=x%10; x\=10); return(s + x) } { for (n=0, 1000, a=0; for (m=0, floor((n-1)/2), a+=2*SumD(binomial(n, m))); if (n%2 == 0, a+=SumD(binomial(n, n/2))); write("b066600.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Mar 08 2010]
|
|
|
CROSSREFS
| Sequence in context: A036120 A108565 A066005 * A062116 A008381 A083780
Adjacent sequences: A066597 A066598 A066599 * A066601 A066602 A066603
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Dec 22 2001
|
|
|
EXTENSIONS
| Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 28 2001
OFFSET changed from 1,2 to 0,2 by Harry J. Smith (hjsmithh(AT)sbcglobal.net), Mar 08 2010
|
| |
|
|
