A098792 a(n) = A056188(n)/n.

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.

Links

Table of n, a(n) for n=1..35.

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

Adjacent sequences: A098789 A098790 A098791 * A098793 A098794 A098795

Keyword

nonn

Author

Leroy Quet, Oct 31 2004

Extensions

More terms from Axel Harvey and Robert G. Wilson v, Nov 03 2004

Status

approved