A324914 a(n) = Sum_{k=1..n} 2^k * tau(k), where tau(k) = A000005(k).
2, 10, 26, 74, 138, 394, 650, 1674, 3210, 7306, 11402, 35978, 52362, 117898, 248970, 576650, 838794, 2411658, 3460234, 9751690, 18140298, 34917514, 51694730, 185912458, 286575754, 555011210, 1091882122, 2702494858, 3776236682, 12366171274
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..3314
- Eric Weisstein's World of Mathematics, Divisor Function
Programs
-
Maple
ListTools:-PartialSums([seq(2^k*numtheory:-tau(k),k=1..100)]); # Robert Israel, Jun 27 2019
-
Mathematica
Accumulate[Table[2^k*DivisorSigma[0, k], {k, 1, 30}]]
Comments