|
| |
| |
|
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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}] (from Robert G. Wilson v Nov 04 2004)
|
|
|
CROSSREFS
| Sequence in context: A057562 A102628 A036655 * A061057 A038667 A199823
Adjacent sequences: A098789 A098790 A098791 * A098793 A098794 A098795
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Oct 31 2004
|
|
|
EXTENSIONS
| More terms from Axel Harvey (ax(AT)hirsig.ca) and Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 03 2004
|
| |
|
|
