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
KEYWORD
nonn
AUTHOR
Jon Perry, Jul 29 2003
EXTENSIONS
Name corrected and more terms added by Ilya Gutkovskiy, Apr 12 2019
STATUS
approved