|
| |
|
|
A064450
|
|
Sum of totients of binomial coefficients C[n,j],j=0..n.
|
|
2
| |
|
|
1, 2, 3, 6, 8, 18, 30, 86, 106, 158, 290, 662, 1410, 3674, 7166, 16242, 20242, 46754, 72910, 162686, 304866, 524570, 1179430, 2842710, 5230210, 11035402, 24478394, 40473686, 63927602, 155016682, 328928338, 888801182, 928681474, 1765045802
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| a(n) = sum of n-th row of the triangle formed by replacing each m in Pascal's triangle by phi(m).
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,200
|
|
|
MATHEMATICA
| a(n)=Apply[Plus, Table[EulerPhi[Binomial[n, w]], {w, 0, n}]],
|
|
|
PROG
| (PARI) { for (n=0, 200, a=sum(j=0, n, eulerphi(binomial(n, j))); write("b064450.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 14 2009]
|
|
|
CROSSREFS
| Cf. A000010.
Sequence in context: A103065 A005508 A110448 * A130623 A072847 A095895
Adjacent sequences: A064447 A064448 A064449 * A064451 A064452 A064453
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Oct 02 2001
|
| |
|
|
