A171732 a(n) = Sum_{d|n} d*2^(d^2).

2, 34, 1538, 262178, 167772162, 412316861986, 3940649673949186, 147573952589676675106, 21760664753063325144712706, 12676506002282294014967199825954, 29243015907268149203883755326167580674, 267608942382367477698428619271780750388889122

Offset: 1

Author

Paul D. Hanna, Dec 16 2009

Keywords

• nonn

Examples

			L.g.f.: L(x) = 2*x + 34*x^2/2 + 1538*x^3/3 + 262178*x^4/4 + ...
exp(L(x)) = 1 + 2*x + 19*x^2 + 548*x^3 + 66749*x^4 + ... (A158099).
		

Crossrefs

Cf. A158099.

Programs

Mathematica

a[n_] := DivisorSum[n, # * 2^(#^2) &]; Array[a, 10] (* Amiram Eldar, Aug 18 2023 *)

PARI

a(n)=sumdiv(n, d, d*2^(d^2))

Extensions

a(11)-a(12) from Amiram Eldar, Aug 18 2023