A086734 Convolution of the prime numbers with phi(n).

2, 5, 12, 22, 42, 64, 104, 148, 214, 286, 394, 504, 662, 824, 1028, 1254, 1538, 1822, 2188, 2568, 3002, 3482, 4038, 4586, 5260, 5948, 6722, 7558, 8484, 9394, 10484, 11608, 12810, 14106, 15554, 16926, 18566, 20226, 21958, 23828, 25916, 27888, 30220, 32458, 34908, 37418, 40318, 42976, 46088, 49124

Offset

1,1

Links

Table of n, a(n) for n=1..50.

Mathematica

Table[Sum[Prime[j]*EulerPhi[n-j], {j, 1, n-1}], {n, 2, 60}] (* Vaclav Kotesovec, Apr 12 2019 *)

Prog

(PARI) a(n) = sum(j=1, n, prime(j)*eulerphi(n-j+1)); \\ Michel Marcus, Apr 12 2019

Crossrefs

Cf. A000010, A000040.

Sequence in context: A116718 A026035 A215183 * A123647 A166249 A326762

Adjacent sequences: A086731 A086732 A086733 * A086735 A086736 A086737

Keyword

nonn

Author

Jon Perry, Jul 29 2003

Extensions

Name corrected and more terms added by Ilya Gutkovskiy, Apr 12 2019

Status

approved