|
| |
|
|
A073317
|
|
a(n)=Sum_{j = 0..n} binomial(phi(n),phi(j)).
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A064731 A159069 A162681
Adjacent sequences: A073314 A073315 A073316 * A073318 A073319 A073320
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jul 26 2002
|
| |
|
|
