login
A086735
Convolution of the prime numbers with phi(n) convoluted with sigma(n).
0
0, 0, 2, 11, 35, 92, 203, 416, 766, 1356, 2235, 3593, 5472, 8224, 11858, 16918, 23364, 32036, 42723, 56708, 73611, 95090, 120642, 152506, 189674, 235332, 288044, 351423, 424108, 510596, 608196, 723484, 852906, 1003174, 1171393, 1365498, 1580008, 1826770, 2098499, 2406590, 2745896, 3129158
OFFSET
0,3
MATHEMATICA
Table[Sum[Sum[Prime[j]*EulerPhi[k - j], {j, 1, k - 1}] * DivisorSigma[1, n - k], {k, 1, n - 1}], {n, 1, 50}] (* Vaclav Kotesovec, Apr 12 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Jul 29 2003
EXTENSIONS
Name and offset corrected and more terms added by Ilya Gutkovskiy, Apr 12 2019
STATUS
approved