login
a(n) = A056188(n)/n.
0

%I #10 Jul 28 2015 21:54:22

%S 1,1,2,2,6,2,18,16,38,26,186,134,630,340,1056,2048,7710,4490,27594,

%T 24664,55502,63260,364722,240398,1076426,890532,3314018,4708916,

%U 18512790,11761532,69273666,67108864,161804534,184009658,652647890

%N a(n) = A056188(n)/n.

%C Each term is a positive integer.

%t f[n_] := Plus @@ Binomial[n, Select[Range[n], GCD[n, # ] == 1 &]]; Table[ f[n]/n, {n, 35}] (* _Robert G. Wilson v_, Nov 04 2004 *)

%K nonn

%O 1,3

%A _Leroy Quet_, Oct 31 2004

%E More terms from _Axel Harvey_ and _Robert G. Wilson v_, Nov 03 2004