A038039 a(n) = Sum_{d|n} (2^d*3^(n/d)).

6, 30, 78, 246, 582, 1830, 4758, 14358, 41118, 122430, 360438, 1079742, 3213222, 9624990, 28798926, 86319894, 258673542, 775718310, 2326095798, 6976966422, 20927018814, 62775429150, 188311523478, 564911643486, 1694677889958

Offset

1,1

Links

Table of n, a(n) for n=1..25.

Example

For n = 3, the divisors are 1 and 3, the sum is 2^1 * 3^3 + 2^3 * 3^1 = 54 + 24 = 78.

Mathematica

Table[Total[2^Divisors[n] 3^(n/Divisors[n])], {n, 30}] (* Harvey P. Dale, Nov 08 2017 *)

Prog

(PARI) a(n) = sumdiv(n, d, 2^d*3^(n/d)); \\ Michel Marcus, Oct 05 2020

Crossrefs

Equals 6*A034735(n).

Sequence in context: A152743 A215906 A305163 * A258903 A050972 A259918

Adjacent sequences: A038036 A038037 A038038 * A038040 A038041 A038042

Keyword

nonn,easy

Author

Christian G. Bower

Status

approved