|
|
A216957
|
|
a(1)=2; for n > 1, a(n) = 2^(n-2) + (1/(2n-2)) * Sum_{ d divides n-1 } phi(2d)*2^((n-1)/d).
|
|
2
|
|
|
2, 2, 4, 6, 12, 20, 40, 74, 148, 286, 568, 1118, 2228, 4412, 8788, 17480, 34836, 69392, 138388, 275942, 550560, 1098516, 2192572, 4376666, 8738324, 17448308, 34845304, 69594398, 139011816, 277691852, 554767744, 1108378658, 2214594580, 4425117884, 8842583584, 17670722600, 35314182976, 70576759892, 141055781836
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
with(numtheory);
f:=n-> if n=1 then 2 else 2^(n-2) + (1/(2*n-2)) * add(phi(2*d)*2^((n-1)/d), d in divisors(n-1)); fi;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|