|
%I #11 Apr 12 2019 08:30:27
%S 2,5,12,22,42,64,104,148,214,286,394,504,662,824,1028,1254,1538,1822,
%T 2188,2568,3002,3482,4038,4586,5260,5948,6722,7558,8484,9394,10484,
%U 11608,12810,14106,15554,16926,18566,20226,21958,23828,25916,27888,30220,32458,34908,37418,40318,42976,46088,49124
%N Convolution of the prime numbers with phi(n).
%t Table[Sum[Prime[j]*EulerPhi[n-j], {j, 1, n-1}], {n, 2, 60}] (* _Vaclav Kotesovec_, Apr 12 2019 *)
%o (PARI) a(n) = sum(j=1, n, prime(j)*eulerphi(n-j+1)); \\ _Michel Marcus_, Apr 12 2019
%Y Cf. A000010, A000040.
%K nonn
%O 1,1
%A _Jon Perry_, Jul 29 2003
%E Name corrected and more terms added by _Ilya Gutkovskiy_, Apr 12 2019
|
