|
Search: id:A073317
|
|
|
| A073317 |
|
a(n)=Sum_{j = 0..n} binomial(phi(n),phi(j)). |
|
+0
3
|
|
| 2, 3, 6, 7, 22, 8, 74, 29, 90, 30, 1207, 31, 4118, 121, 466, 467, 67266, 122, 236984, 496, 7452, 1973, 3956273, 497, 1305399, 8014, 405387, 8015, 222108532, 498, 792121142, 127353, 1688345, 127354, 21495390, 8511, 66695906846, 486580
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
g[x_] := EulerPhi[x] Table[Apply[Plus, Table[Binomial[g[n], g[j]], {j, 0, n}]], {n, 1, 50}]
|
|
CROSSREFS
|
Cf. A066781, A073318.
Sequence in context: A119746 A023785 A050581 this_sequence A064731 A159069 A162681
Adjacent sequences: A073314 A073315 A073316 this_sequence A073318 A073319 A073320
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 26 2002
|
|
|
Search completed in 0.002 seconds
|
