login
A098792
a(n) = A056188(n)/n.
0
1, 1, 2, 2, 6, 2, 18, 16, 38, 26, 186, 134, 630, 340, 1056, 2048, 7710, 4490, 27594, 24664, 55502, 63260, 364722, 240398, 1076426, 890532, 3314018, 4708916, 18512790, 11761532, 69273666, 67108864, 161804534, 184009658, 652647890
OFFSET
1,3
COMMENTS
Each term is a positive integer.
MATHEMATICA
f[n_] := Plus @@ Binomial[n, Select[Range[n], GCD[n, # ] == 1 &]]; Table[ f[n]/n, {n, 35}] (* Robert G. Wilson v, Nov 04 2004 *)
CROSSREFS
Sequence in context: A325248 A036655 A319356 * A061057 A038667 A304104
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 31 2004
EXTENSIONS
More terms from Axel Harvey and Robert G. Wilson v, Nov 03 2004
STATUS
approved