|
|
A034713
|
|
Dirichlet convolution of powers of 2 (2,4,8,...) with themselves.
|
|
0
|
|
|
4, 16, 32, 80, 128, 320, 512, 1152, 2112, 4352, 8192, 17152, 32768, 66560, 131584, 264448, 524288, 1053696, 2097152, 4203520, 8390656, 16793600, 33554432, 67147776, 134218752, 268500992, 536879104, 1073876992, 2147483648
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[Sum[2^(d + n/d), {d, Divisors[n]}], {n, 1, 30}] (* Vaclav Kotesovec, Sep 11 2019 *)
|
|
PROG
|
(PARI) a(n) = if(n==0, 1, sumdiv(n, d, 2^d * 2^(n/d) )); \\ Joerg Arndt, Apr 14 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|