OFFSET
0,2
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
