|
Search: id:A064450
|
|
|
| A064450 |
|
Sum of totients of binomial coefficients C[n,j],j=0..n. |
|
+0
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; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
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}]],
|
|
PROGRAM
|
(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 this_sequence A130623 A072847 A095895
Adjacent sequences: A064447 A064448 A064449 this_sequence A064451 A064452 A064453
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Oct 02 2001
|
|
|
Search completed in 0.002 seconds
|
