login
A171732
a(n) = Sum_{d|n} d*2^(d^2).
0
2, 34, 1538, 262178, 167772162, 412316861986, 3940649673949186, 147573952589676675106, 21760664753063325144712706, 12676506002282294014967199825954, 29243015907268149203883755326167580674, 267608942382367477698428619271780750388889122
OFFSET
1,1
EXAMPLE
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).
MATHEMATICA
a[n_] := DivisorSum[n, # * 2^(#^2) &]; Array[a, 10] (* Amiram Eldar, Aug 18 2023 *)
PROG
(PARI) a(n)=sumdiv(n, d, d*2^(d^2))
CROSSREFS
Cf. A158099.
Sequence in context: A187546 A195005 A215957 * A291903 A340863 A198977
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Dec 16 2009
EXTENSIONS
a(11)-a(12) from Amiram Eldar, Aug 18 2023
STATUS
approved