login
A086734
Convolution of the prime numbers with phi(n).
1
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
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
Sequence in context: A116718 A026035 A215183 * A123647 A166249 A326762
KEYWORD
nonn
AUTHOR
Jon Perry, Jul 29 2003
EXTENSIONS
Name corrected and more terms added by Ilya Gutkovskiy, Apr 12 2019
STATUS
approved