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,1

Comments

Partial sums of A323351 with n=0 term of A323351 omitted. - Robert Israel, Jun 27 2019

Links

Robert Israel, Table of n, a(n) for n = 1..3314

Eric Weisstein's World of Mathematics, Divisor Function

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}]]

Crossrefs

Cf. A000005, A006218, A101509, A160399, A324915, A323351.

Sequence in context: A099969 A241688 A183331 * A025589 A084182 A321240

Adjacent sequences: A324911 A324912 A324913 * A324915 A324916 A324917

Keyword

nonn

Author

Vaclav Kotesovec, Mar 18 2019

Status

approved