login
A301707
a(n) = n * Sum_{k prime<=n} k.
0
0, 4, 15, 20, 50, 60, 119, 136, 153, 170, 308, 336, 533, 574, 615, 656, 986, 1044, 1463, 1540, 1617, 1694, 2300, 2400, 2500, 2600, 2700, 2800, 3741, 3870, 4960, 5120, 5280, 5440, 5600, 5760, 7289, 7486, 7683, 7880, 9758, 9996, 12083, 12364, 12645, 12926, 15416, 15744
OFFSET
1,2
FORMULA
a(n) = n * A034387(n).
EXAMPLE
a(6) = 6 * Sum_{k primes<=6} = 6 * (2+3+5) = 6 * 10 = 60.
MATHEMATICA
Array[# Sum[Prime@ i, {i, PrimePi@ #}] &, 48] (* Michael De Vlieger, Apr 10 2018 *)
PROG
(PARI) a(n) = n*sum(k=1, n, k*isprime(k)); \\ Michel Marcus, Mar 26 2018
CROSSREFS
Cf. A034387.
Sequence in context: A212921 A359958 A225562 * A100783 A170850 A297711
KEYWORD
nonn
AUTHOR
Pedro Caceres, Mar 25 2018
EXTENSIONS
More terms from Michel Marcus, Apr 09 2018
STATUS
approved