OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = Sum_{i=0..n-1} A023531(n-i)*p(i+1) where p(i) is the i-th prime.
MAPLE
Primes:= select(isprime, [2, seq(i, i=3..1000, 2)]):
seq(add(Primes[n - i*(i+3)/2], i=1..floor((sqrt(1+8*n)-3)/2)), n=2..nops(Primes)); # Robert Israel, Dec 28 2015
PROG
(PARI) vector(20, x, c=0; j=x; t=3; while(j>1, c+=prime(j-1); j-=t; t+=1); c)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected (term 781 was missing) by Jeremy Gardiner, Feb 05 2014
STATUS
approved