|
|
A102688
|
|
a(n) = (1/n)*Sum_{k=1..n} k*2^gcd(n,k).
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|