%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