OFFSET
0,2
COMMENTS
The subsequence of primes in this partial sum begins: 313, 409, 601, 937, 1801, 1993, 2593, 4729, 5689, 8641, 10009, 11161, 11593, 14449. [Jonathan Vos Post, Feb 18 2010]
LINKS
FORMULA
a(n) ~ Pi^2 * n^2. - Vaclav Kotesovec, Jan 14 2024
MATHEMATICA
A004011 = Join[{1}, Table[24*Sum[d*Mod[d, 2], {d, Divisors[n]}], {n, 1, 40}]]; Accumulate[A004011](* Jean-François Alcover, Apr 25 2012 *)
PROG
(PARI) B=1; bl=[ 1 ]; for (n=1, 200, t1=divisors(2*n); t2=0; for (i=1, length(t1), if( t1[ i ]%4 <> 0, t2=t2+t1[ i ])); B=B+8*t2; bl=concat(bl, B)); bl
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved