A102688 a(n) = (1/n)*Sum_{k=1..n} k*2^gcd(n,k).

2, 5, 10, 20, 36, 74, 134, 272, 526, 1052, 2058, 4160, 8204, 16466, 32824, 65696, 131088, 262490, 524306, 1049168, 2097316, 4195358, 8388630, 16779632, 33554516, 67112996, 134218282, 268443848, 536870940, 1073759432, 2147483678

Offset

1,1

Links

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

Formula

a(n) = (A000079(n) + n*A000031(n))/2.

Mathematica

f[n_] := Sum[k*2^GCD[n, k], {k, n}]/n; Table[ f[n], {n, 32}] (* Robert G. Wilson v, Feb 12 2005 *)

Crossrefs

Sequence in context: A227356 A327289 A327288 * A236559 A275388 A341581

Adjacent sequences: A102685 A102686 A102687 * A102689 A102690 A102691

Keyword

easy,nonn

Author

Vladeta Jovovic, Feb 03 2005

Extensions

More terms from Robert G. Wilson v, Feb 12 2005

Status

approved