OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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 *)
With[{nn=50}, {prs=Prime[Range[PrimePi[nn]]]}, Table[n *Total[Select[prs, #<=n&]], {n, nn}]] (* Harvey P. Dale, Nov 24 2025 *)
PROG
(PARI) a(n) = n*sum(k=1, n, k*isprime(k)); \\ Michel Marcus, Mar 26 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Pedro Caceres, Mar 25 2018
EXTENSIONS
More terms from Michel Marcus, Apr 09 2018
STATUS
approved